Составить программу: Получить первые k членов арифметической прогрессии с первым...

Question

Составить программу:
Получить первые k членов арифметической прогрессии с первым членом,равным сорока ,и разностью минус 5.

Answer 1

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  SeqGen(ReadInteger('k='),40,x->x-5).Println
end.

Тестовое решение
k= 13
40 35 30 25 20 15 10 5 0 -5 -10 -15 -20