Предмет: Информатика, автор: COPH

Cоставить программу для вычисления суммы n чисел . Первое из этих чисел вводится, а каждое следующее число на 4 меньше предыдущего.

Ответы

Автор ответа: LadyKiller1
0
program task;
var a: array [0..20] of integer; //20-максимальное количество чисел,можете менять на своё число//
i,n:integer;
begin
write('Введите количество чисел : ');
read(n);
write('Введите первое число : ');
read(a[1]);
for i:=1 to n do  begin
a[i+1]:=a[i]-4;
write(a[i]:5);
end;
end.
Приложения:
Похожие вопросы
Предмет: Математика, автор: Аноним
Предмет: Алгебра, автор: kandili