Ответы
Ответ дал:
0
На паскале.
var i,a,b,c:longint;
begin
readln(a);
readln(b);
c:=0;
for i:=a to b do
if i mod 2=0 then
c:=c+1;
writeln(c);
end.
var i,a,b,c:longint;
begin
readln(a);
readln(b);
c:=0;
for i:=a to b do
if i mod 2=0 then
c:=c+1;
writeln(c);
end.
Похожие вопросы
2 года назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад