INTEST

Пример файлового ввода-вывода по мотивам челленджа https://www.spoj.com/problems/INTEST/ Во входном файле input.txt содержатся натуральные числа, не превосходящие одного миллиарда, по одному на строке. Первое число - "пробный делитель". Остальные - "пробные делимые", в количестве не более миллиона штук. Их точное количество не специфицируется заранее, а определяется по окончанию входного файла. В выходной файл output.txt необходимо записать одну строчку (завершающуюся символом окончания строки), содержащую одно целое неотрицательное число - количество "пробных делимых" (включая возможные повторения), делящихся нацело на "пробный делитель".

использовать Файлы
алг intest
нач
  цел резъ = 0, д, ь
  файл ф

  ф := открыть на чтение ("input.txt")
  ввод ф, д
  нц пока есть данные(ф)
    ввод ф, ь
    если mod(ь, д) = 0 то
      резъ := резъ + 1
    все
  кц
  закрыть(ф)

  ф := открыть на запись ("output.txt")
  вывод ф, резъ, нс
  закрыть(ф)
кон