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

У тебя значение m будет равно целой части от деления на 15 числа n. Условие задачи повнимательнее прочти, что именно там требуется

Не вижу большой разницы. Пользуюсь тем, что каждое 15-ое число кратно 15-ти.

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