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

Question

Риммура

15 сентября, 02:00

+3

Ответы (1)

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

Миропия · Answer 1

Var a, i:integer;

begin

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

readln (a);

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

end.