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

Question

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

Answer 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.