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

Question

Информатика

Атя

22 мая, 16:19

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

+4

Ответы (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