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

Question

Измарагд

29 января, 04:48

+1

Ответы (1)

Знаете ответ?

Фиста · Answer 1

Var N:integer;

Begin

Write ('N = ') ;

ReadLn (N) ;

For N: = 1 to N do

WriteLn ('√', N,' = ', Sqrt (N))

End.