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

Question

Информатика

Афинодор

1 октября, 02:44

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

+1

Ответы (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.