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

Question

Алгебра

Гордей

19 октября, 09:24

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

+3

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