Вопрос от посетителя
найти сумму натуральных чисел которые делятся на 3 и 4 в диапазоне от m до n
Отвечает Илюха:
var s,i,n,m : longint;
begin
readln(m,n);
if m>n then
begin
s:=m;
m:=n;
n:=s
end;
s:=0;
for i:= m to n do if i mod 12=0 then s:=s+i;
writeln(s);
end.