Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ильзира2
30.07.2022 18:14 •
Информатика
Составьте программу, заменяющую меньшее из двух данных чисел суммой, а большее – произведением этих чисел. с оператора выбора- case
Показать ответ
Ответ:
dsfsksgsms
12.07.2020 18:28
Var a,b,min,max,f:integer;
begin
readln(a,b);
min:=a+b;
max:=a*b;
if a>b then f:=1 else f:=2;
case f of
1: begin a:=max; b:=min end;
2: begin a:=min; b:=max end;
end;
writeln(a,b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Bekarys2002
27.07.2020 02:32
Добавьте в класс giraffes функции, при вызове которых жираф переставлял бы правую или левую ногу вперед или назад. назвать их можно так: left_foot_forward, left_foot_back,...
SashylikS
25.01.2023 23:10
Зашифровано слово в котором каждая буква заменена порядковым номером алфавита на листке обнаружена запись: 33213161533 какое слово зашифровано, если это существительное...
vlab2018
25.01.2023 23:10
Впаскалеabc. из 2-ух случайных чисел, одно из которых четное, а другое нечетное определить и вывести на экран нечетное число....
nurlan27
25.01.2023 23:10
Перечислите аппаратные средства необходимые для работы компьютерных сетей...
lizarepkina2004
07.11.2022 23:40
Постройте логические схемы. +20...
albina188
15.12.2022 14:25
A=(a,b) приписать справа к слову p столько палочек, сколько всего символов входит в p (например: babb - babb) help!...
холпяик
16.03.2023 23:35
A=(a,b,c) оставить в слове p только первый символ (пустое слово не менять) !...
valera242
06.07.2021 22:47
2й пункт. z= вычислить значения выражения по формуле(все переменные принимают вещественные значения):...
tortik47228
18.02.2020 18:11
Напиши название блока и определи, какие настройки были применены....
ARMY130613
01.12.2020 18:57
Решить в vba: ввести массив, состоящий из 16 элементов целого типа. заменить все элементы, кратные трем, нулями. определить количество замен...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a,b);
min:=a+b;
max:=a*b;
if a>b then f:=1 else f:=2;
case f of
1: begin a:=max; b:=min end;
2: begin a:=min; b:=max end;
end;
writeln(a,b);
end.