Даны первые n натуральных чисел вывести количество всех чисел которые кратны 3,но не делятся на 6
Ответы
Ответ дал:
0
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
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
Похожие вопросы
2 года назад
2 года назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад