Написать програму в паскале: Найти кол-во чисео от 1 до n кратных 15

Предыдущий
вопрос Следующий
вопрос

Приведённый ниже код на Pascal (Delphi) находит количество чисел от 1 до n, кратных 15.

program CountMultiplesOf15;
var
n, count, i: integer;
begin
Write('Введите число n: ');
ReadLn(n);
count := 0;
for i := 1 to n do
begin
if i mod 15 = 0 then
Inc(count);
end;
WriteLn('Количество чисел от 1 до ', n, ', кратных 15: ', count);
end.

Программа запрашивает у пользователя число n, затем с помощью цикла for проверяет все числа от 1 до n. Если число кратно 15 (остаток от деления на 15 равен нулю), то увеличивает счётчик count. В конце программа выводит количество чисел, кратных 15 в заданном диапазоне.

Для компиляции и выполнения этой программы вам потребуется среда разработки Pascal (например, Delphi) или любой другой компилятор Pascal.