Question

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

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