Question

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

Answer 1

var
i,a,n:integer;
begin
a:=0;
write('Введите число n: ');
readln(n);
for i:=1 to n  do
if i mod 15=0 then a:=a+1;
writeln('Количество чисел: ',a);
readln;
end.

Answer 2

CONST n=30; //Вместо 30 пишем нужное число n
VAR m:integer;
BEGIN
  m:=n div 15;
  writeln (m);
END.

Answer 3

Вот пример программы на Pascal, которая находит количество чисел от 1 до n, кратных 15:

pascalCopy code
program CountMultiplesOf15;
var
  n, count, i: integer;
begin
  writeln('Введите значение n: ');
  readln(n);
  
  count := 0; // Инициализируем счетчик нулем
  
  // Используем цикл для перебора чисел от 1 до n
  for i := 1 to n do
  begin
    // Проверяем, кратно ли текущее число 15
    if i mod 15 = 0 then
      count := count + 1; // Если кратно, увеличиваем счетчик на 1
  end;
  
  writeln('Количество чисел от 1 до ', n, ', кратных 15: ', count);
end.

Эта программа запрашивает у пользователя значение n, затем использует цикл для перебора чисел от 1 до n, и для каждого числа проверяет, кратно ли оно 15 с помощью оператора mod. Если число кратно 15, то увеличивается счетчик count. В конце программа выводит количество чисел, кратных 15, от 1 до n.