Question

Вывести значения квадратного корня целых чисел в диапозоне от 1 до N. N-целое положительное число , введенное с клавиатуры . В паскале

Answer 1

Var N:integer;
Begin
Write('N = ');
ReadLn(N);
For N:= 1 to N do
    WriteLn('√',N,' = ',Sqrt(N))
End.