Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Раола
03.03.2021 17:22 •
Информатика
Найдите первое число которое кратное 7, не кратное 3, и на конце 3
Показать ответ
Ответ:
лав35
08.10.2020 02:35
//ответ: 133.
//PascalABC.NET
var
i: integer;
begin
i := 0;
while(true) do
begin
if((i mod 7 = 0) and (i mod 3 <> 0) and (i mod 10 = 3)) then break;
i := i + 1;
end;
write(i);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
rytryt
31.07.2020 22:38
Надо написать программу в Python. ...
Irishagogo
08.07.2021 08:25
Задаётся число m. определить вид числа в троичной системе счисления на языке си.(простым алгоритмом)...
imailh28282
02.12.2021 05:57
Буду за подмогу по лабораторным и самостоятельным работам: 1)пользователь вводит целое положительное число m. найти наименьшее натуральное число k, при котором сумма...
нурбол5
11.08.2022 20:22
Какими возможностями мобильные устройства, которые вы используете в повседневной жизни? ....
ukubasov
04.12.2020 08:30
Какие функции включает область задач в Microsoft Publisher...
охохохо1
07.10.2020 15:59
Вывести числа от 1 до 15, используя цикл с параметром. (число для ввода 0)...
belbeksev
29.02.2020 15:08
2. Дано целое число N. Найти сумму N2+(N+1)2 +(N+2)2+..+(N+N)2. c++...
golubtsovanyut
04.01.2020 21:16
УМОЛЯЮ ВАС Задание 2 ( ). Создать слайд средствами редактора презентаций «Разделы информатики», используя авторазметку Маркированный список для разделов ОС Windows;...
nastylamyr2999
01.02.2022 04:02
Запишите команды после выполнения которых: загружается модуль tkinter и создается окно программы размером 220х110 с заголовком Внимание ; создается метка с именем lab1...
eduard7286
28.06.2021 11:59
Инфа 4. Условия для полей типа «Числовой», «Денежный» и «Счетчик» Условие задания:2 Б. Дано изображение. 1.png За Какие результаты можно получить? 19 360 106 32 139...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//PascalABC.NET
var
i: integer;
begin
i := 0;
while(true) do
begin
if((i mod 7 = 0) and (i mod 3 <> 0) and (i mod 10 = 3)) then break;
i := i + 1;
end;
write(i);
end.