Написать программу вычисления суммы чисел 111, 106, 101, 96 ... 46 с помощью циклов.

Question

Информатика

Валерий

25 февраля, 18:26

Написать программу вычисления суммы чисел 111, 106, 101, 96 ... 46 с помощью циклов.

+2

Ответы (1)

Знаешь ответ?

Аннуся · Answer 1

var

a, sum : integer;

begin

a:=46;

sum:=0;

while a< = 111 do

begin

sum:=sum+a;

a:=a+5;

writeln ('a=', a);

end;

writeln ('sum=', sum);

end.