Информатика, опубликовано 2018-08-22 22:51:17 by Гость
Найти сумму чисел100+105+110+115...+200 Напечатать выражение и значение суммы
Ответ оставил Гость
Что типа должно получиться: 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.