Отыскать количество трёхзначных чисел, кратных 5 и не превосходящих данного числа

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

Входные данные:
в первой строке одно целое число N, (100 lt;= N lt;= 999)

Выходные данные:
одно число, являющееся ответом в согласовании с условием задачи.

Пример 1.

на входе:
128

на выходе:
6

Задать свой вопрос
1 ответ
//Pascal ABC.NET v3.1 сборка 1219

begin
 Var b:=ReadInteger();
 writeln(range(100,999).Where(x -gt; xlt;b).Where(x -gt; x mod 5=0).Count);
end.

Пример ввода:
128
Пример вывода:
6
Алиса Федюничева
Во первом where() не x
Валек Лентяев
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт