Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Варвараминнннн
21.08.2021 02:36 •
Информатика
Составить программу на языке паскаль для : ввести два целых числа х и y и выяснить, что больше их сумма или произведение. в качестве результата печатать "сумма" или "произведение" или "равно"
Показать ответ
Ответ:
Камалия11
03.10.2020 11:31
Var
x, y: integer;
begin
readln(x,y);
if x=y then writeln ('Равны') else
if (x+y) > (x*y) then writeln ('Cумма')
else if (x+y)<(x*y) then writeln ('Произведение')
end.
Тест №1
22 55
Произведение
Тест №2
1 6
Cумма
Тест №3
22 22
Равны
0,0
(0 оценок)
Популярные вопросы: Информатика
Маша923892
09.09.2022 02:56
Как записать рассказ в блок-схему? как записать рассказ в блок схему...
ramina25
20.08.2022 18:34
Web-браузер - это Выберите один из 4 вариантов ответа: 1) сервер в Internet, предназначенный для поиска Web-страниц 2) компьютер, предназначенный для хранения web-страниц...
olgabykova2006
01.10.2020 03:09
Матрицу размером 5*5 заполнить случайными двоичными числами (0,1)....
vlad134631
20.06.2020 18:08
решить НУЖНО. Записать алгоритм, блок-схему и программу....
PomogiteSAS
26.12.2021 07:57
1. Как можно создавать модели в SketchUp? 2. Функция кнопки ВРАЩЕНИЕ? 3. Функция кнопки ПРЕДЫДУЩИЙ ВИД? ...
Kolosov77
07.05.2023 00:14
решить задачу по химии: Дано N(HNO3)=12х10(в 23 степени) молекулM(HNO3)-?...
aimsen
05.01.2021 21:22
Задание 1. Распределите слова на три группы: 1) омоформы; 2) омофоны; 3) омографы. Топить печь – печь пироги; глубокий пруд – сломать прут; железный замок – роскошный...
fire31
05.01.2021 21:22
Девит грей словесно виявляе лицарство козакив...
marina558zas
05.01.2021 21:22
Махамбетше жырлаймын тақырыбына өлең жазып беріндерщ...
Balabol2010
05.01.2021 21:22
Папа назвал цветы очаровательными...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
x, y: integer;
begin
readln(x,y);
if x=y then writeln ('Равны') else
if (x+y) > (x*y) then writeln ('Cумма')
else if (x+y)<(x*y) then writeln ('Произведение')
end.
Тест №1
22 55
Произведение
Тест №2
1 6
Cумма
Тест №3
22 22
Равны