Что не правильно в программе?

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

program ka;

var a1, d, k, i:integer;

begin

writeln ('введите k') ;

readln (k) ;

a1:=40;

d:=-5;

i:=1;

while i<=k do

begin

a1:=a1i;

d:=di;

i:=i+1;

end;

writeln (k) ;

end.

Question

Информатика

Натоша

17 мая, 10:04

Что не правильно в программе?

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

program ka;

var a1, d, k, i:integer;

begin

writeln ('введите k') ;

readln (k) ;

a1:=40;

d:=-5;

i:=1;

while i<=k do

begin

a1:=a1i;

d:=di;

i:=i+1;

end;

writeln (k) ;

end.

+5

Ответы (2)

Знаете ответ на вопрос?

Викта · Answer 1

Я не до конца уверен но у тебя получается то, что ты вводишь к потом выполняеш ь while I ... И т. д и потом просишь вывести к. У тебя скорее всего получается так что ты ввел 5 и получил 5. тут лучше использовать оператор for и вводить новую переменную. как то так)))

Нила · Answer 2

Исправил:

program ka;

var

a1, d, k, i: integer;

begin

writeln ('введите k') ;

readln (k) ;

a1 : = 40;

d : = - 5;

i : = 1;

while i < = k do

begin

writeln (a1) ;

a1 : = a1 + d;

i : = i + 1;

end;

end.