Составьте программу, которая печатала бы последовательность 100,81,64,...,1.
Составьте программу, которая печатала бы последовательность 100,81,64,...,1.
Гость
Ответ(ы) на вопрос:
ГостьVar
A:byte;
Begin
For A:= 10 downto 1 do
Write(A*A,' ');
End.
ГостьЭто 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
Не нашли ответ?
Похожие вопросы