Выведите на экран в одну строку квадраты всех натуральных чисел, меньших данного N. В Pascal)
Выведите на экран в одну строку квадраты всех натуральных чисел, меньших данного N. В Pascal)
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var n:=ReadInteger('n=');
SeqGen(n-1,x->x*x,1).Println
end.
Тестовое решение:
n= 15
1 4 9 16 25 36 49 64 81 100 121 144 169 196
Не нашли ответ?
Похожие вопросы