Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
kholmatova002
25.05.2022 06:41 •
Информатика
Составить программу на паскале. агент 007 узнал, что в секретном сейфе трёхзначный код, в котором все три цифры разные.при этом средняя цифра равна разности крайних цифр. составить программу, которая напечатает для него все такие числа.
Показать ответ
Ответ:
annastiebiekova
21.06.2020 21:28
Var a,b,c,d:integer;
begin
d:=a+b*10+c*100;
for d:=100 to 999 do
begin
if b=a-c or b=c-a then writeln (d);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
03.09.2020 16:52
Дано четырёхзначное число n. проверить,будет ли сумма его цифр чётным числом...
катейка22
25.02.2021 23:10
Что такое кодирование числовой информации? мне нужно определение....
lera784738374
25.02.2021 23:10
Где ошибка? ? : написать на паскале программу, которая запрашивает с клавиатуры n произвольных целых чисел и ищет их сумму. число n вводится с клавиатуры. разработать...
Krasoto4kayoy
28.08.2020 16:44
20 закончите предложение: дизайн слайда – шаблоны оформления предназначены...
Марат991
21.03.2023 03:57
Логику протекания процесса можно отобразить в модели ... а) IDEFO б) IDEF3 в) IDEF1X...
Stas2007111
26.04.2023 12:04
Метод Вальда применяется для оценивания систем ... а) в условиях риска б) в детерминированных условиях в) в условиях неопределенности (множественный выбор)...
gels5344Inetka
06.09.2022 02:26
1. Выберите правильное продолжение определения: а)не будут выполнены ни разу; б) Будут выполняться бесконечно...
BULATKA177
13.05.2023 12:27
Дополнительное задание. В электронную таблицу зане- сли результаты тестирования девятиклассников всех школ города по химии и биологии. Всего в таблице оказались...
evamayninger20
07.01.2023 10:24
Какой будет результат выполнения int( 42 )...
Sn9
16.04.2020 20:54
Micrasoft Word-ты қосу үшін мынандай әрекеттер тізбегін орындау керек...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
d:=a+b*10+c*100;
for d:=100 to 999 do
begin
if b=a-c or b=c-a then writeln (d);
end;
end.