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

Question

Алгебра

Кристинка

4 февраля, 00:29

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

+4

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