Войти
Регистрация
Спроси 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. проверить,будет ли сумма его цифр чётным числом...
lera784738374
25.02.2021 23:10
Где ошибка? ? : написать на паскале программу, которая запрашивает с клавиатуры n произвольных целых чисел и ищет их сумму. число n вводится с клавиатуры. разработать...
Марат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 )...
bestia1954
27.09.2020 23:28
Найти сумму квадратов всех целых чисел от a до 50 (a вводится с клавиатуры);...
xxxtentacionxxx1
09.07.2020 14:28
Сколько времени будут печататься 37 листов курсового проекта если 1 страница содержит 50 строк по 36 символов и скорость печати принтера составляет 1.18 кб/сек....
kapyringeorgy
09.07.2020 14:28
Размер резервного файла на диске составляет 113 мб. сколько шпаргалок можно поместить в такой файл, если средняя шпаргалка составляет 2 страницы, по 25 строк, в...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.