PaskalABC. Вводятся числа от 1 до 9 до тех пор, пока не будет введен 0. Всего будет...

Question

PaskalABC.
Вводятся числа от 1 до 9 до тех пор, пока не будет введен 0. Всего будет введено не
больше 100 чисел. Посчитать количество единиц в этой последовательности, количество двоек,
количество троек и так далее (должно выводиться всегда 9 чисел).

Answer 1

Uses System;
Var in, out : text;
      line, col : integer;
      k : integer;
begin
  Assign(in, "nome.in");
  Assign(out, "nomer.out");
  Reset(in);
  Rewrite(out);
  Read(in, line, col, k);
  if k < col * line theb
  begin
   Write(out, (k - 1) div col + 1, ' ', (k - 1) mod col + 1);
  end
  else
    Write(out, "слишком большое число")
  end;
  close(in);
  close(out);
 
end.