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

Question

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

Answer 1

Это 10², 9², ... 1²

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  SeqGen(10,i->sqr(10-i)).Println
end.

Результат
100 81 64 49 36 25 16 9 4 1

Answer 2

Var
A:byte;
Begin
For A:= 10 downto 1 do
   Write(A*A,' ');
End.