Помогите с решением пожалуйста (задача в файле)
Помогите с решением пожалуйста (задача в файле)
Гость
Ответ(ы) на вопрос:
ГостьНа паскале.
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.
Не нашли ответ?
Похожие вопросы