proc main()var count := 0for i := 100 to 999if i % 3 = 0count := count + 1endifendforwrite("Количество трехзначных чисел, делящихся на 3: ", count)endproc
proc main()
var count := 0
for i := 100 to 999
if i % 3 = 0
count := count + 1
endif
endfor
write("Количество трехзначных чисел, делящихся на 3: ", count)
endproc