Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
tolokvlad
08.10.2021 15:01 •
Информатика
Написать на языке паскаль алгоритм нахождения количества натуральных четырехзначных чисел, каждое из которых не делится ни на 2, ни на 3.
Показать ответ
Ответ:
ndv1525
30.06.2020 07:44
Uses crt;
var i,k:integer;
begin
k:=0;
for i:=1000 to 9999 do
if (i mod 2<>0) and (i mod 3<>0) then inc(k);
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
zero407
19.11.2020 06:23
Сообщение о том,что из корзины с разноцветными шарами(все шары разного цвета) достали зелёный шар, содержит 4 бита информации. сколько шаров было в корзине?...
MrRobot1452390
22.03.2020 23:03
Как вводится информационных данных устройствах мобильный телефон телевизор микроволновая печь пылесос стиральная машина...
kivrosa
07.04.2020 19:43
Найдите, что выведет данная программа при вводе n=105 Комментарий: some_variable и my_variable это сумма и произведение соответственно цифр числа n....
Roman789789
04.10.2021 11:58
Метод строки isdigit проверяет, состоит ли строка только из цифр. Введите два целых числа и напишите программу, рассчитывающую их сумму. В случае неправильного ввода...
DamirJonson
17.10.2020 08:56
Нужен конспект на тему семейство MS...
sirius830
19.05.2023 15:56
Пропускная линий связи составляет 73600 тысяч бит в секунду в ходе передачи информации после каждых 8 бит данных, образующих символ передаётся 1 бит информации. сколько...
NICHEGOHOROSHEGO1
24.11.2020 20:41
Выберите вариант, в котором все страны имеют высокую численность населения: выберите один ответ: 1. россия, сша, япония 2. египет, ливия, канада 3. япония, нидерланды,...
zu3vaelina
24.11.2020 20:41
100 ! изменить порядок интегрирования в двойных интегралах 1. интеграл от 0 до 1 по dx интеграл от 0 до корень(2х-х^2) f(x,y) по dx 2. интеграл от 0 до 1 по dy интеграл...
DarinaDoka666
24.11.2020 20:41
Feso4→fe(oh)2→cucl2→cu(no3)2. для реакций ионного обмена сложите молекулярные, полные и сокращенные ионные уравнения хелп...
pepeon11
24.11.2020 20:41
Сне выполняя построения графика найти координаты точек пересечения графиков функции: у=24х+13; у=-7х+3,5...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,k:integer;
begin
k:=0;
for i:=1000 to 9999 do
if (i mod 2<>0) and (i mod 3<>0) then inc(k);
writeln(k);
end.