Найти сумму чисел100+105+110+115 ... + 200

Напечатать выражение и значение суммы

Question

Информатика

Аза

23 октября, 11:37

Найти сумму чисел100+105+110+115 ... + 200

Напечатать выражение и значение суммы

+1

Ответы (1)

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

Анфуса · Answer 1

Что типа должно получиться: S=3150;

program Summ;

uses Crt;

var S, i, a, n: integer;

begin

ClrScr; {Очистка экрана}

S:=0;

a:=5;

n: = (200-100) div a; {Количество слагаемых}

for i:=0 to n do

s:=S + (100+i*5) ;

WriteLn (' S=', s) ; {Вывод результата}

ReadLn;

end.

Найти сумму чисел100+105+110+115 ... + 200Напечатать выражение и значение суммы

Найти сумму чисел100+105+110+115 ... + 200

Напечатать выражение и значение суммы