Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Valya039782
30.08.2020 18:12 •
Информатика
Составить программу на языке паскаль для : ввести два целых числа х и y и выяснить, что больше их сумма или произведение. в качестве результата печатать "сумма" или "произведение" или "равно"
Ответ:
dralov574
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 оценок)
Популярные вопросы: Информатика
MINLEMON
30.03.2023 22:29
Информатика 6.2 компьютерная графика сор 1) устонови правильную аоследовательность рисования паралелепипеда 2)определите инструменты по пиктограммам 3)определите инструмент и...
doggibou
27.10.2020 09:58
Выделите с условного форматирования температур- ным форматированием, в котором для обозначения высоких,Уровень – Анализ, синтезные отклонения в диапазоне значений в вашем регионе.На...
prve17
12.05.2022 11:04
Кто шарит в столкнулся с проблемой Задача: шахматная доска 8х8, по координатам определить цвет. a, b = input() b = int(b) if a == A or a == C or a == E or a == G and b % 2 !=...
lejaqw
08.06.2023 15:01
Программа python 3 надо сделать что бы выводило от 1 до 100 и затем четное или нечетное число...
OLEGator800
18.09.2022 22:13
Сканируется цветное изображение размером 48,26 ×48,26 сантиметров разрешающая сканера 600 × 1200 dpi и глубина цвета 8 бит какой информационный объем будет иметь полученный графический...
Дженнифер878
10.04.2022 06:41
Сетка экрана монитора - 1024*800 пикселей. количество бит одного пикселя - 8. определите минимальный объем в килобайтах...
Sergey2003456
10.04.2022 06:41
Для хранения растрового изображения размером 32*32 пикселя отвели 1 кбайт памяти. каково максимально возможное количество цветов в палитре изображения?...
vladik28092006
20.02.2020 04:48
Даны целые положительные числа n и k. используя только операции сложения и вычитания,найдите частное от деления нацело n на k,а также остаток от этого деления. ,...
pashasergo
20.02.2020 04:48
1.в электронной таблице значение формулы =срзнач(а1: с1) равно 5. чему равно значение ячейки d1, если значение формулы = сумм (а1: d1) равно 7? 2. выражение 5(a2+c3): 3(2b2-3d3)...
viktoriavasili
20.02.2020 04:48
А) определить десятичные значения двоичных чисел 1001.011 б) преобразовать десятичные числа в двоичные эквиваленты 23.25 в) числа, представленные двоичным эквивалентом, перевести...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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
Равны