Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Турик2087
06.12.2021 10:29 •
Информатика
Решить . пользователь вводит 2 числа, вывести на экран максимальное и минимальное из этих 2 чисел. если числа равны, вывести на экран "a=b". 34
Показать ответ
Ответ:
Ilka1k
29.07.2020 20:30
Var a,b:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if a=b then writeln ('a=b') else
begin
if (a>b) then writeln('max=',a,' min=', b) else
writeln ('max=',b, ' min=', a)
end;
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Utugav
06.07.2022 06:26
Программное обеспечение...
kizaru28
07.03.2020 04:15
Группу ячеек образующих прямоугольник называют в EXCEL...
yana017
19.08.2020 05:09
Сколько информации (килобайт) в системе Unicod содержит сообщение, которое занимает 200 страниц, при этом на каждой странице по 32 строки, а в каждой строке в среднем...
Olga194
07.06.2020 21:42
Аскар купил новую клавиатуру. Но произошла проблема, компьютер не опознал устройство. Как решить проблему? -/ установить драйвер обновить антивирус поменять клавиатуру...
Murua
27.07.2020 22:50
Написать программу в паскале авс дано четырехзначное число. найти: число, полученное при прочтении его цифр справа налево....
Акмарал252887
03.06.2022 13:13
Найти сумму всех целых двоичных чисел 10+100+110+1000+1010++10010. ответ записать в шестнадцатеричнлй системе счисления....
Guwanc98
03.06.2022 13:13
Дима хотел послушать музыку на компьютере, для этого ему нужно было включить музыкальный файл белые_розы.mp3. он начал работу с каталога с: \музыка\хиты. сначала он спустился...
авдруг
17.10.2020 14:09
Единица информации, равная восьми битам. (4 буквы)...
ВеселыйР0джер
17.10.2020 14:09
Перевести целые числа от 1 до 20 из десятичной системы счисления в двоичную,восьмеричную и шестнадцатеричную системы счисления?...
WayneGames
17.10.2020 14:09
Сколько байт будет занимать код рисунка размером 40×50 пикселей в режиме истинного цвета? при кодировании с палитрой 256 цветов? при кодировании с палитрой 16 цветов?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if a=b then writeln ('a=b') else
begin
if (a>b) then writeln('max=',a,' min=', b) else
writeln ('max=',b, ' min=', a)
end;
readln;
end.