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

Question

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

Answer 1

PascalABC
beginvar x:=40;var k:integer;write('Введите k. Вы ввели ');read(k);write(x);for var i:=1 to k dobeginx+=5;write(' ',x);end;end.

Comments

begin
var x:=40;
var k:integer;
write('Введите k. Вы ввели ');
read(k);
write(k);
for var i:=1 to k do
begin
k+=5;
write('',k);
end;
end.

---

Почему-то он ввел без новых строк

---

k+=5; что это означает?