Question

Составить программу, которая выводит числа, кратные 9 на промежутке [25,45] и их количество на языке PascalABC 25 баллов

Answer 1

program MultiplesOfNine;

var

 number, count: integer;

begin

 count := 0;

 writeln('Числа, кратные 9, на промежутке [25, 45]:');

 

 for number := 25 to 45 do

 begin

   if number mod 9 = 0 then

   begin

     writeln(number);

     count := count + 1;

   end;

 end;

 writeln('Количество чисел, кратных 9, на промежутке [25, 45]: ', count);

end.

Программа использует цикл for для перебора чисел в заданном диапазоне. Оператор mod используется для проверки кратности 9. Если число кратно 9, оно выводится на экран, и счетчик увеличивается. После завершения цикла программа выводит общее количество чисел, кратных 9, на указанном промежутке.