отыскать количество натуральных чисел не превосходящих 100 и кратных 5

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

Задать свой вопрос
1 ответ
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
  var n:=0;
  for var i:=1 to 100 do
    if i mod 5=0 then n:=n+1;
  println('Кратных 5 и меньше 100 всего ',n);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт