Umiestnenie súboru www.TrSek.com/zadania/sucet2.pas{ SUCET.PAS Copyright (c) Pheo }
{ Program spoèíta párne èísla vo zvolenom intervale. }
{ }
{ Datum:15.04.2003 http://www.trsek.com }
program sucet;
var a,b,i,s:integer;
begin
write('zadaj dolnu hranicu intervalu: ');
readln(a);
write('zadaj hornu hranicu intervalu: ');
readln(b);
s:=0;
for i:=a to b do
if i mod 2 = 0 then s:=s+i;
writeln('SUCET parnych CISEL TOHTO INTERVALU JE: ',s);
readln;
end.