Question

Помогите пожалуйста решить задачу: напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 5 или 9.Программа получает на вход целые числа,количество введённых чисел неизвестно, последовательность чисел заканчивается числом (0 - признак окончания ввода,не входит в последовательность). Количество чисел не превышает 1000. Введенные числа не превышает 30000. Программа должна вывести одно число:количество чисел, кратных 5 или 9.помогите пожалуйста!!!(это надо решить Паскалем)​

Answer 1

var

 k5, k9, k45, k, i, x: integer;

begin

 k5 := 0; k9 := 0; k45 := 0;

 while True do

 begin

   readln(x);

   if x = 0 then

     break;

   if (x mod 5 = 0) and (x mod 9 <> 0) then

     k5 += 1;

   if (x mod 5 <> 0) and (x mod 9 = 0) then

     k9 += 1;

   if x mod 45 = 0 then

     k45 += 1;

 end;

 k := k5+k9-k45;

 write(k)

end.

Answer 2

var

   a, n, i : integer;

   

begin

   repeat

       read(a);

       if (a <= 30000) and (a <> 0) then begin

           if (a mod 5 = 0) or (a mod 9 = 0) then n += 1;

           i += 1;

       end;

   until (a = 0) or (i = 1000);

   writeln(n);

end.

Answer 3

Для решения этой задачи на языке программирования Pascal, вам нужно создать цикл, который будет считывать вводимые числа до тех пор, пока не будет введено число 0, и в то же время проверять каждое число на кратность 5 или 9. При нахождении числа, удовлетворяющего условию, увеличивайте счетчик. В конце программы выведите значение счетчика.

Вот пример программы на Pascal:

pascalCopy code
program CountMultiples;

const
  MAX_NUMBERS = 1000;
  MAX_VALUE = 30000;

var
  inputNumber, countMultiples: integer;

begin
  countMultiples := 0;

  repeat
    // Выводим приглашение для ввода числа
    writeln('Введите целое число (или 0 для завершения ввода): ');
    // Считываем введенное число
    readln(inputNumber);

    // Проверяем, является ли введенное число кратным 5 или 9
    if (inputNumber mod 5 = 0) or (inputNumber mod 9 = 0) then
      countMultiples := countMultiples + 1;

  until (inputNumber = 0) or (countMultiples = MAX_NUMBERS);

  // Выводим результат
  writeln('Количество чисел, кратных 5 или 9: ', countMultiples);
end.

Программа работает следующим образом: она продолжает запрашивать ввод чисел до тех пор, пока не будет введено число 0 или пока количество чисел, кратных 5 или 9, не достигнет максимального значения MAX_NUMBERS (1000 в данном случае). Затем программа выводит количество чисел, удовлетворяющих условию.