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

Question

Информатика

Досифея

30 июня, 13:28

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

+1

Ответы (1)

Знаете ответ?

Петуня · 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.