Найдите сумму всех чётных натуральных чисел от 24 до 98 включительно

Question

Алгебра

Аделла

21 августа, 03:50

Найдите сумму всех чётных натуральных чисел от 24 до 98 включительно

+2

Ответы (1)

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

Емилия · Answer 1

Program dd;

var i, sum:integer;

begin

sum:=0;

for i:=24 to 98 do

begin

if (i mod 2) = 0

then sum:=sum+i;

end;

writeln (sum) ;

end.

//

//

//

//

//на выходе: 2318