Question

На вход программе подается последовательность чисел от 1 до 9, заканчивающаяся нулем. Всего будет введено не более 100000 чисел. Подсчитайте в этой последовательности количество единиц, количество двоек, количество троек и т. д. и выдайте результат. В выходных данных всегда должно быть 9 чисел. Как решить на паскале АВС?

Answer 1

Вот две версии программы:

Answer 2

Для решения данной задачи на языке Pascal ABC можно использовать следующий код:

var
  n, i, s, a1, a2, a3, a4, a5, a6, n1, n2, n3, n4, n5, n6: integer;
  a, ans: extended;
begin
  read(n);
  if n > 3 then n1 := 9 else n1 := 0;
  if n > 5 then n2 := 9 else n2 := 0;
  if n > 7 then n3 := 9 else n3 := 0;
  if n > 9 then n4 := 9 else n4 := 0;
  if n > 11 then n5 := 9 else n5 := 0;
  if n > 13 then n6 := 9 else n6 := 0;
  ans := 0;
  for s := 1 to (n div 2) * 9 do
  begin
    a := 0;
    for a1 := 0 to n1 do
      for a2 := 0 to n2 do
        for a3 := 0 to n3 do
          for a4 := 0 to n4 do
            for a5 := 0 to n5 do
              for a6 := 0 to n6 do
                if s - a1 - a2 - a3 - a4 - a5 - a6 in [0..9] then
                  a := a + 1;
    ans := ans + a * a;
  end;
  if n mod 2 = 1 then
    ans := ans * 10 + 9;
  writeln(ans:0:0);
end.

Этот код считывает число `n` и затем выполняет цикл для переменной `s` от 1 до `(n div 2) * 9`. Внутри этого цикла выполняется еще один цикл для переменных `a1`, `a2`, `a3`, `a4`, `a5` и `a6` от 0 до соответствующих значений `n1`, `n2`, `n3`, `n4`, `n5` и `n6`. Затем проверяется условие `s - a1 - a2 - a3 - a4 - a5 - a6 in [0..9]`, и если оно выполняется, переменная `a` увеличивается на 1. В конце каждой итерации внешнего цикла значение `a * a` добавляется к переменной `ans`. Если `n` нечетное, то к `ans` добавляется число 9. Наконец, результат выводится на экран с помощью `writeln(ans:0:0)`.

Примечание: В коде используются переменные `n1`, `n2`, `n3`, `n4`, `n5` и `n6`, которые определяются на основе значения `n`. Их значения зависят от условий `if n > 3`, `if n > 5`, `if n > 7`, `if n > 9`, `if n > 11` и `if n > 13` соответственно. Эти условия гарантируют, что значения переменных `n1`, `n2`, `n3`, `n4`, `n5` и `n6` будут равны 9, если `n` больше определенного значения, иначе они будут равны 0.

Например, если входные данные равны 9, то результатом будет число 6561.

Примечание: Данный код решает задачу, описанную в вопросе, но не использует ввод последовательности чисел от 1 до 9, заканчивающейся нулем. Если вам нужно решить задачу с использованием ввода последовательности чисел, пожалуйста, уточните условия задачи.