Информатика Архивный вопрос

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

Нет комментариев

Ответы

Гость

Var a, i:integer;
begin
write('Введите конечное число: ');
readln(a);
for i := 0 to a do writeln(i,'² = ',sqr(i))
end.

Нет комментариев

Похожие вопросы