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

foxmanlp foxmanlp    3   08.03.2019 06:00    1

Ответы
bissimbayevaa bissimbayevaa  24.05.2020 05:10

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика