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

Найти сумму натуральных чисел которые делятся на 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы