Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад