Найти сумму членов арифметической прогрессии

@1111111 · Регистрация: 17.02.2013

Author24 — интернет-сервис помощи студентам

Найти сумму членов арифметической прогрессии a, a+d ,..., a+(n-1)d по данным значениям a, d, n.
И блок схему.

@Puporev · 17.02.2013, 13:29

Pascal

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.

Добавлено через 6 минут
Или по формуле

Pascal

var a,d,n,i,s:integer;
begin
write('a=');
read(a);
write('d=');
read(d);
write('n>0 n=');
read(n);
s:=(2*a+(n-1)*d)*n div 2;
write('Сумма=',s);
end.

@1111111 0 / 0 / 0 Регистрация: 17.02.2013 Сообщений: 6
		1
	Найти сумму членов арифметической прогрессии 17.02.2013, 13:11. Показов 4712. Ответов 1 Метки нет (Все метки) Найти сумму членов арифметической прогрессии a, a+d ,..., a+(n-1)d по данным значениям a, d, n. И блок схему. 0

	17.02.2013, 13:29

Найти сумму членов арифметической прогрессии

Решение