PaskalABC. Вводятся числа от 1 до 9 до тех пор, пока не будет введен 0. Всего будет введен
PaskalABC.
Вводятся числа от 1 до 9 до тех пор, пока не будет введен 0. Всего будет введено не
больше 100 чисел. Посчитать количество единиц в этой последовательности, количество двоек,
количество троек и так далее (должно выводиться всегда 9 чисел).
Гость
Ответ(ы) на вопрос:
Гость 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.
Не нашли ответ?
Похожие вопросы