составьте программу, которая печатала бы последовательность 100,81,64,…,1.

Вопрос школьника по предмету Информатика

составьте программу, которая печатала бы последовательность 100,81,64,…,1.

Ответ учителя по предмету Информатика

Var

A:byte;

Begin

For A:= 10 downto 1 do

   Write(A*A,’ ‘);

End.