Bardin
6 год назад
Без использования клавиатуры заполнить массив следующей числовой последовательностью(количество элемента массива вводится с клавиатуры):1 4 9 16 25?
ОТВЕТЫ
Русланович
Jul 2, 2019
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrGen(ReadInteger(n=),i-gt;i*i,1); a.Println;
end.
Пример
n= 10
1 4 9 16 25 36 49 64 81 100
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrGen(ReadInteger(n=),i-gt;i*i,1); a.Println;
end.
Пример
n= 10
1 4 9 16 25 36 49 64 81 100
116
Смежные вопросы:
