Срочнооооо!!!!
Вычислить квадратный корень из чисел от 1 до N.
Задачу решить 2-мы способами: используя цикл с предварительным условием;
используя цикл с параметрами.
В виде блок-схемы.

попробовал на паскале, только потом увидел, что блок-схему надо, если пригодится:)
var a:real; k,n:integer;
begin
n:= 0;k:= 0;a:= 0;
readln(n);
repeat
k:= k+1;a:= sqrt(k)+a;
until n<>k;
writeln(a:1:2);
end.


var a:real; k,n:integer;
begin
n:= 0;k:= 0;a:= 0;
readln(n);
while n<>k do begin
k:= k+1;
a:= sqrt(k)+a;
end;
writeln(a:1:2);
end.