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

Question

Информатика

Камилла

12 марта, 18:03

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

+1

Ответы (1)

Знаете ответ на вопрос?

Моисей · Answer 1

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 60)

then k:=k+1;

writeln ('k = ', k) ;

end.

Пример:

n = 100

k = 17