Question

Программирование PascalABC
Сосчитать сколько есть чисел кратных 6 от 1 до 100 включительно
​

Answer 1

Ответ:

Объяснение:

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.