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

Question

Харлам

24 февраля, 21:36

+3

Ответы (1)

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

Катерина · Answer 1

Var a, i:integer;

begin

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

readln (a) ;

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

end.