Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
юлия1868
21.04.2023 11:29 •
Информатика
Вычислить количество натуральных чисел кратных трем и не превышающих n.
Показать ответ
Ответ:
nastyaborisova13
08.07.2020 06:46
Var
i, k, n: integer;
begin
write('Введите натуральное число N-> ');
readln(n);
k := 0;
i := 3;
while i <= n do
begin
k := k + 1;
i := i + 3;
end;
writeln('Результат: ', k)
end.
Тестовое решение:
Введите натуральное число N-> 1651
Результат: 550
0,0
(0 оценок)
Популярные вопросы: Информатика
огпгпощо
21.12.2022 04:20
Ускольких натуральных чисел от 1 до 2 в степени n, где n = 10, сумма цифр кратна четырем? комментарий. например, для n=3n=3 рассматриваются такие числа: 1, 2, 3, 4,...
iakatya
14.09.2020 02:25
Дан массив размера N. Найти номер его первого локального минимума (локальный минимум — это элемент, который меньше любого из своих соседей). Решение на Питоне...
Yyyyyyshdvjfc
15.11.2022 02:27
складіть проект для малювання 6 прямокутників з довжинами сторін а і b кроків, розміщених один під одним на відстані 10 кроків. Для завдання значень змінних а і b використовуйте...
ryabtsev08
13.05.2023 15:03
Створіть та запишіть у зошиті програму за даною задачею: Чи істинні будуть вирази? Для перевірки використайте Python: напишіть програму та виведіть A, B, C (для цього...
maruya3
05.05.2022 19:16
Составьте блок схему алгоритма проверки знания даты начала Великой Отечественной войны...
yukodraw
15.07.2021 08:47
Для АЛУ 74181 по таблице определить код операции цифрового компарирования....
HaGiNg
02.03.2022 02:33
Нужно заполнить таблицу ...
ekozhuhova
01.10.2022 02:55
99. Исполнитель Черепаха действует на песчаной арене, име- ющей форму квадрата со стороной 500 пикселей. В на-чальный момент времени Черепаха находится в центреарены,...
frostywhite
22.12.2021 13:29
4. Создайте HTML-документ, который будет содержать таблицуследующей структуры:...
elizavetamilas
26.06.2020 04:21
Сделайте на питоне,да Найдите все натуральные числа, принадлежащие отрезку [45000000;50000000], у которых ровно пять различных нечётных делителей (количество чётных...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, k, n: integer;
begin
write('Введите натуральное число N-> ');
readln(n);
k := 0;
i := 3;
while i <= n do
begin
k := k + 1;
i := i + 3;
end;
writeln('Результат: ', k)
end.
Тестовое решение:
Введите натуральное число N-> 1651
Результат: 550