Срочнооооо!!!! Вычислить квадратный корень из чисел от 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.