Даны 1-ые n естественных чисел вывести количество всех чисел которые кратны

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

Задать свой вопрос
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 6lt;gt;0)
  then k:=k+1;
writeln('k = ',k);
end.

Пример:
n = 100
k = 17
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт