Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Ladnaya56
17.09.2022 04:10 •
Информатика
Составьте программу, заменяющую меньшее из двух данных чисел их суммой, а большее - удвоенным произведением этих чисел.
Показать ответ
Ответ:
skydux
03.10.2020 23:31
2014-04-06T04:57:38+00:00
Program pf;
var x,y,a,b:integer;
begin
read(x);
read(y);
a:=x; b:=y;
if x>y then begin x:=a*b; y:=a+b; end else begin x:=a+b; y:=a*b; end;
write(x,y);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
zol1981
17.01.2021 17:05
1) какие два объекта не могут быть использованы в качестве исполнителей алгоритмов а) e-mail и ученик; б) презентация и адрес; в) светофор и экран; г) дисковод и робот; д) дисплей...
sPHAgNUM1
12.04.2020 14:44
Придумай рисунок и составь алгоритм для художника...
рома1254
04.06.2020 03:53
Создать машину тьюринга...
shamsutdinovaa3
24.12.2020 14:00
Своріть програму яка може підписувати диплом учасника конкурсу. Користувач вводить таку інформацію: 1.місто 2.номер школи 3.клас 4.прізвище 5.імя учня програма Python...
йцукен56
08.10.2021 19:57
Сколько dvd дисков объемом 4.7 гбайт потребуется для размещения информации, полностью занимающей жесткий диск емкостью 1 тбайт?...
1234567890333123
02.03.2022 23:23
Сканируется цветное изображение размером 12,7×12,7 дюйм. Разрешающая сканера — 1200×1200 dpi, глубина цвета — 32 бита. Какой информационный объём будет иметь полученный графический...
mrwiner
29.12.2021 22:30
Цуценятко Чакі важить 1,5 кг, а цуценятко Черрі — 2,5 кг. З’їдаючи одну котлету, кожне цуценятко набирає у вазі 100 г. Через скільки днів Чакі наздожене Черрі, якщо Чакі з’їдає...
Mocket
16.06.2022 09:00
Купил видеокарту rx 560 4gb,вставил в ПК, всё подключил.а он не включается.из-за чего может быть?...
lilyok2006
30.07.2021 03:19
Tid сВопросы и Анна1. Приведе пример таблицы2. Расскажите об элементах таблицы3. Почему возникает необходимость добавлять таблицы в умент?4. Как указывается место в документе,...
dariadariadaria2
15.02.2023 12:46
Кто приказал построить висячие сады в...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Program pf;
var x,y,a,b:integer;
begin
read(x);
read(y);
a:=x; b:=y;
if x>y then begin x:=a*b; y:=a+b; end else begin x:=a+b; y:=a*b; end;
write(x,y);
end.