Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Kismos2006
14.04.2022 07:18 •
Информатика
Даны первые n натуральных чисел вывести количество всех чисел которые кратны 3,но не делятся на 6
Показать ответ
Ответ:
esehediev
09.09.2020 14:51
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
0,0
(0 оценок)
Популярные вопросы: Информатика
Николь28071547
30.08.2021 14:17
Как добавить прокси в BAS ?...
Ala012447
17.01.2021 12:42
написать поэтапно как сделать гиф анимацию вращения земли...
святославовна
01.03.2021 12:23
В ЗОШИТІ записати команди для створення фігури Кораблик за вкладеним рисунком. Записати команди для руху кораблика вліво при натиснені на клавішу z і зміни кольору паруса при...
vanyastal2015
26.12.2021 16:03
Разработать программу на питоне анимации равномерно движущегося объекта. Направления движения: • Справа налево • Слева направо • По диагонали • Случайное...
Regisha1981
14.01.2023 12:12
Вычисли значение математического выражения в MS Excel: (52+162)−2(77:(3+16)). (ответ округли до сотых)...
nslava783
23.02.2022 08:13
Вводится число N, а затем последовательность чисел, признак конца последовательности - ноль. Вывести количество членов последовательности, равных N. Sample Input: 10 1 1 10...
Fefiego
02.05.2023 02:33
Если не сдам то 2 поставят...
Colnkor
20.08.2022 06:05
Ребят чему я научусь в этой жизни или нет? ...
настюшанастя1200
27.09.2021 04:23
Выбери компоненты алфавита языка программирования Python Верных ответов: 2Служебные слова и римские цифрыРимские цифрыСлужебные словаЛатинские прописные и странные буквы...
linarafinatovna
04.10.2020 05:00
Реферат на тему: Компьютерный дизайн. Это наука или искусство? (введение и заключение обязательно)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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