Напишите программу в Pascal ABC, которая в последовательности целых чисел определяет количество чисел,...

Программа на Pascal ABC:

program CountMultiples;
var
  num, count: integer;
begin
  count := 0;
  repeat
    read(num);
    if (num mod 5 = 0) or (num mod 9 = 0) then
      count := count + 1;
  until num = 0;
  writeln(count);
end.

При вводе входных данных: 15 91 90 0 программа выведет: 2

Программа на Pascal ABC:

program CountMultiplesOfFiveOrNine;
var
  number, count: integer;
begin
  count := 0;
  
  repeat
    readln(number);
    
    if (number mod 5 = 0) or (number mod 9 = 0) then
      count := count + 1;
  until number = 0;
  
  writeln(count);
end.

Данная программа считывает последовательность целых чисел, и для каждого числа проверяет, делится ли оно на 5 или на 9. Если число делится на 5 или на 9, то увеличивается счётчик count. После ввода числа 0 программа выводит значение счётчика count, которое и будет искомым количеством чисел, кратных 5 или 9.

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

program CountMultiples;

var
  num, count: Integer;

begin
  count := 0; // инициализируем счётчик
  read(num); // читаем первое число
  
  while num <> 0 do // продолжаем чтение, пока не встретим 0
  begin
    // Проверяем, кратно ли число 5 или 9
    if (num mod 5 = 0) or (num mod 9 = 0) then
      Inc(count); // увеличиваем счётчик, если условие выполнено
    
    read(num); // читаем следующее число
  end;
  
  write(count); // выводим результат
end.

Объяснение программы:

1. Переменные: num используется для хранения каждого вводимого числа, count для подсчёта количества чисел, удовлетворяющих условию кратности.

2. Чтение ввода: Сначала считываем первое число в num, затем используем цикл while для продолжения чтения чисел пока не встретим 0.

3. Проверка условий: Внутри цикла проверяем, делится ли текущее число num без остатка на 5 или на 9. Если условие выполнено, увеличиваем счётчик count.

4. Завершение работы: Как только ввод прекращается встреченным нулём, программа выводит значение счётчика count, что является ответом на задачу.

Эта программа корректно обрабатывает ввод, заканчивающийся числом 0, и подсчитывает количество чисел, удовлетворяющих условию кратности 5 или 9.