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

Question

Информатика

Ростя

30 октября, 07:00

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

+3

Ответы (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.