Каллистрат
6 год назад
Помогите с решением пожалуйста (задача в файле)
ОТВЕТЫ
Серапионович
Jul 25, 2019
На паскале.
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.
107
Смежные вопросы:
