Question

Вывести трехзначные числа, которые четны и кратны 25. Подсчитать их сумму. ( Паскаль )

Answer 1

var i:integer;
begin;
for i:=100 to 999 do
if (i mod 2=0) and (i mod 25=0) then writeln(i);
end.