ответ:http://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ru
Объяснение:http://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ruhttp://planetoflife.ru
Поделитесь своими знаниями, ответьте на вопрос:
Var
f:text;
n1,n2,k,i:integer;
begin
assign(f,'Input.txt');
reset(f);
read(f,n1);
read(f,n2);
close(f);
for i:=n1 downto n2 do
if i mod 2=0 then inc(k);
assign(f,'Output.txt');
rewrite(f);
write(f,k);
close(f);
end.
Пример содержимого Input.txt:
8 0
Пример содержимого Output.txt:
5