Ответ №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.
Ответ №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.
Знаете ответ?