Программирование PascalABC
Сосчитать сколько есть чисел кратных 6 от 1 до 100 включительно
Сосчитать сколько есть чисел кратных 6 от 1 до 100 включительно
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
Объяснение:
var count, i: integer;
begin
count := 0;
for i:=1 to 100 do
if i mod 6 = 0 then count := count + 1;
writeln(count);
end.