Question

Имя входного файла input.txt имя выходного файла output.txt максимальное время работы на одном тесте 2 секунды ограничение по памяти 64 мб недавно шурик увлекся полетами на воздушном шаре. все бы хорошо, но однажды у него закончилось топливо, и приземление оказалось жестким. отделавшись легким испугом и парой царапин, он решил создать микроконтроллер, который бы сигнализировал о необходимости начать спуск. оказалось, что для плавного спуска нужно каждые два метра сжигать одну единицу горючего. для простоты наш изобретатель решил, что сжигать нужно будет на каждой четной высоте. а дальше начались трудности, так как шурик не силен в . шурику написать алгоритм, вычисляющий, какое количество единиц топлива необходимо для спуска с высоты a до высоты b над уровнем моря. формат входных данных во входном файле заданы два целых числа a и b (-2×109 ≤ a, b ≤ 2×109, a ≥ b) — начальная и конечная высоты над уровнем моря в метрах соответственно. формат выходных данных в выходной файл выведите, какое количество единиц топлива необходимо для плавного приземления воздушного шара шурика. пример input.txt output.txt 3 0 2 0 -5 3

Answer 1

//Pascal ABC.NET 3.2 сборка 1318

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