Где здесь ошибка?

Question

[Влад Макаров]

Не могу понять почему не проходит решение задачи, вроде все верно, пожалуйста помогите найти ошибку.

Answer 1

[shushpanio]

Вот Вам код из учебника описывающий простейшую программу - Берем число из файла input.txt и записываем ее в output.txt

Program Vvod_Vivod;

  var

    a:longint;

    t:text;

Begin

  assign(t,'input.txt');

  reset(t);

  read(t,a);

  close(t);

<b>ВОТ ЗДЕСЬ ВАШ IF СЧИТАЮЩИЙ КОЛ-ВО РАЗРЕЗОВ</b>

  assign (t,'output.txt');

  rewrite(t);

  write(t,a);

  close(t);

End.

Comments

[shushpanio]

Думаю с корректировкой кода справитесь.

А вообще гугл вроде как не банит людей. :-)

[shushpanio]

Ну и бонусом урок Чтение и запись данных в файл на Паскаль. тут

Answer 2

[SagePtr]

Как минимум, для крайнего случая (n=1) программа выводит дважды. Перед вторым if нужно поставить else. Ну и write ('', a/2) это какая-то непонятная ахинея или чёрная магия, достаточно написать write (a div 2)