Найти сумму членов арифметической прогрессии - Pascal ABC
Формулировка задачи:
Найти сумму членов арифметической прогрессии a, a+d ,..., a+(n-1)d по данным значениям a, d, n.
И блок схему.
Решение задачи: «Найти сумму членов арифметической прогрессии»
textual
Листинг программы
var a,d,n,i,s:integer;
begin
write('a=');
read(a);
write('d=');
read(d);
write('n>0 n=');
read(n);
if n=1 then s:=a
else
begin
s:=a;
for i:=2 to n do
begin
a:=a+d;
s:=s+a
end;
end;
write('Сумма=',s);
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д