Определить количество трехзначных чисел ,кратных 3.(ПАСКАЛЬ)

Question

Определить количество трехзначных чисел ,кратных 3.(ПАСКАЛЬ)

Answer 1

Var i,n:integer;
begin
n:=0;
for i:=100 to 999 do
  if imod 3=0 then n:=n+1;
writeln('количество трехзначных положительных, кратных 3), n);
end.

Comments

можешь помочь с этим.ВСЕ ЭЛЕМЕНТЫ ЗВДАННОГО ОДНОМЕРНОГО МАССИВА УМЕНЬШИТЬ НА ВЕЛИЧИНК РАВНУЮ НАИМЕНЬШЕМУ ЭЛЕМЕНТУ ДАННОГО МАССИВА.(ПАСКАЛЬ)

---

Решение здесь https://yadi.sk/i/YPRp4DxbpgLsa