Найти количество трёхзначных чисел, кратных 5 и не превосходящих заданного числа N. Входные данные: в первой строке одно

Для решения задачи воспользуемся двумя методами. Первый - полный перебор, а второй - умный подсчет. Оба метода расписаны на языке Паскаль, как на обязательном для изучения в школе.Полный перебор: var n,i,counter:integer; begin read(n); counter:=0; for i:= 100 to n do if (i mod 5 = 0) then inc(counter); writeln(counter); end.Умный подсчет: var n,i,counter:integer; begin read(n); counter:=0; writeln(((n-100) div 5) +1); end.Эта формула выведена из знания о том, что каждое пятое число делится на 5.