Даны первые n натуральных чисел вывести количество всех чисел которые кратны 3,но не делятся на 6

Вопрос школьника по предмету Информатика

Даны первые n натуральных чисел вывести количество всех чисел которые кратны 3,но не делятся на 6

Ответ учителя по предмету Информатика

var n,k,i:integer;

begin

write(‘n = ‘);

readln(n);

k:=0;

for i:=1 to n do

 if (i mod 3=0)and(i mod 6<>0)

  then k:=k+1;

writeln(‘k = ‘,k);

end.

Пример:

n = 100
k = 17