Составить программу выводящую на экран сумму всех чётных чисел в промежутке от 12 до 30

1

Ответы и объяснения

2012-11-27T18:51:47+04:00

var sum,i:longint;

 

begin

 

sum:=0;

for i:=10 to 30 do

if i mod 2=0 then sum:=sum+i;

 

write(sum);

 

end;