Ответы
Ответ дал:
0
var a,b,s,i:integer;
begin
s:=0;
read(a,b);
for i:=a to b do if (i mod 4 = 0) then s:=s+i;
write(s);
End.
begin
s:=0;
read(a,b);
for i:=a to b do if (i mod 4 = 0) then s:=s+i;
write(s);
End.
Ответ дал:
0
спасибо большое)
Вас заинтересует
1 год назад
6 лет назад
9 лет назад
9 лет назад