Question

найти сумму натуральных чисел которые делятся на 3 и 4 в диапазоне от m до n

Answer 1

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.