Составить программу печатающую квадрата всех натуральных чисел от 0 до заданного натурального n

Question

Харлам

23 января, 00:14

+1

Ответы (1)

Знаете ответ на вопрос?

Катерина · Answer 1

Var a, i:integer;

begin

write ('Введите конечное число: ') ;

readln (a) ;

for i : = 0 to a do writeln (i,'² = ', sqr (i))

end.