Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
каринка191
26.11.2021 12:34 •
Информатика
Составить программу на паскале. агент 007 узнал, что в секретном сейфе трёхзначный код, в котором все три цифры разные.при этом средняя цифра равна разности крайних цифр. составить программу, которая напечатает для него все такие числа.
Показать ответ
Ответ:
superguluagina
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 оценок)
Популярные вопросы: Информатика
maritsumie
08.01.2020 14:15
Как называется программа, у которой есть версии для разных операционных систем? в ответе введите прилагательное....
alladzyurich
01.03.2023 17:23
Как называется программа, которая переводит в машинные коды символьную запись машинных команд?...
аграил9
14.02.2023 21:03
1) вводится три числа. найти среднее арифметическое и вывести его. 2) вводится три числа. найти сумму четных чисел. 3) вводится три числа, найти среднее арифметическое число...
olya02072000
14.02.2023 21:03
Как называется договор между автором и пользователем, который даёт пользователю право использовать программу и определяет условия этого использования?...
kedasvetlana
14.02.2023 21:03
Для какого из имён ложно высказывание: (третья буква гласная) или не (последняя буква гласная)? 1) елена 2) татьяна 3) максим 4) станислав...
nikitakoshelevozt3ef
19.11.2022 15:55
Для какого из имён ложно высказывание: (третья буква гласная) или не (последняя буква гласная)? 1) елена 2) татьяна 3) максим 4) станислав...
MoNKinsN
10.06.2020 08:22
Стестом по информатике! какое программное обеспечение можно легально скачивать в интернете? (могут подходить сразу несколько вариантов) свободное бесплатное условно-бесплатное...
maratizmailov
19.08.2020 03:26
Заметив на выставке отличную модель парусного корабля, ваня сказал: - это парусный корабль. он называется каравелла. - нет, это галеон, и он точно не ! – возразил илья. -...
даниил854
14.02.2023 01:34
7. Из пункта А в пункт Б вышел пешеход со скоростью v1 км/ч. Через время t за ним выехал автомо- биль со скоростью v2 км/ч. Догонит ли автомобиль пешехода, если расстояние...
zcwe16
28.11.2020 18:52
1) Найди время передачи файла (в секундах), если скорость составляет 25 Мбит/с, а размер файла — 100 Мбайт. 1.1) 100 Мбайт. = Мбит — весит файл 1.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.