Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
яирхаФ
07.01.2022 01:34 •
Информатика
Найти двузначное число, равное утроенному произведению своих цифр
Ответ:
niknem111
02.10.2020 04:09
For i:=10 to 99 do
if (i=(i div 10 + i mod 10) *3) then writeln(i);
0,0
(0 оценок)
Популярные вопросы: Информатика
Lumperz
29.06.2022 09:02
Перевести на с++ .Число рівне сумі всіх своїх дільників , включаючи одиницю , називається досконалим знайти і надрукувати всі досконалі числа в інтервалі від 2 до х...
wasgf
14.10.2020 19:40
Напишите программу для паскаля для 1 и 2 1.найти площадь кольца,внутренний радиус которого равен 20,а внешний заданному числу r(r больше 20) площадь кольца: s=p(3.14)(r^2-r^2)...
киса2248
29.05.2021 21:37
8(в степени х) бит=32мб 16(в сепени х) кб=16гб...
ladaponomareva
19.10.2022 11:28
Компьютер вани имеет следующие характеристики: - тактовая частота – 1,7 ггц, - объём оперативной памяти – 256 мбайт. ваня хочет приобрести диски с компьютерными играми,...
LOLLIPOPS45
06.03.2020 15:40
Подсчитайте, сколько байт в памяти занимает рисунок размером 20 на 80 пикселей, закодированный с палитрой 32 цветов...
annastiebiekova
30.06.2021 20:05
5л, 12л нужно получить 2л л-литров за ранее большое!...
настя7579
22.05.2020 13:54
Найдите ошибку в программе! program i1; var a, b: integer; begin a: =10; b: =1; begin while a =50 do begin if (a mod 9 = 0) or (a mod 7 = 0) then begin b: =b*a; write...
YUSUFOV
22.05.2020 13:54
Придумать загадку (состав предмета, на что похоже, и сама загадка) придумать загадку (действия, такие же действия, и сама загадка) информатика...
Fastikqq
22.05.2020 13:54
1) вывести чётные числа с 18 до 62 с использованием оператора цикла for 2)вывести нечётные числа в обратном порядке с 31 до 1 с использованием оператора цикла for ....
Аким548
05.09.2022 09:29
⦁автоматическое устройство осуществило перекодировку информационного сообщения на языке, первоначально записанного в unicode, в кои-8. при этом информационное сообщение...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
if (i=(i div 10 + i mod 10) *3) then writeln(i);