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

Ответы 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years