Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
olga0520
21.11.2021 09:29 •
Информатика
Составить программу на языке паскаль для : ввести два целых числа х и y и выяснить, что больше их сумма или произведение. в качестве результата печатать "сумма" или "произведение" или "равно"
Показать ответ
Ответ:
annasafaryan87
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 оценок)
Популярные вопросы: Информатика
travisbeats
04.11.2022 07:08
Дан целочисленный массив размера n. вывести все содержащиеся в данном массиве числа, кратные 3 в порядке возрастания их индексов, а также их количество и сумму....
ApollaKop
23.09.2021 15:34
Решите через паскаль. дан массив размера n. вывести последний нечётный элемент массива и его номер...
TemkYT
12.12.2022 18:16
Смашиной поста написать для машины поста программу сложения двух чисел, записанных на ленте и расположенных через одну пустую клетку друг от друга. начальное положение...
chapllinshow
12.12.2022 18:16
Var a,b,x: real; begin write ( vvedite koaficient a,b» ); readln (a,b); if a 0 then begin x: = -b/a; writeln ( koren yravnenia x= , x: 9: 3); end else if b 0 then...
Ozerck2002
09.08.2021 01:24
Напишите программу в pascal выведите на экран все трехзначные числа, у которых последняя цифра четная...
вита4321
26.02.2023 11:48
Почему выдает ошибку? file main.py , line 21 result_a = a*ai+1 ^ indentationerror: expected an indented block вот код на питоне a = int( b = int( ai = 1 bi = 1...
русский265
17.04.2020 12:40
Решить - по с++ : microsoft visual studio операторы цикла (1) : написать программу, которая вычисляет сумму первых n членов ряда: 1 + 1/2 + 1/3 + 1/4 количество...
tanchik2511
02.05.2023 11:05
Подскажите в чем проблема, библиотеки нужные вроде бы подключены .с++...
kirillbatalov2
22.12.2022 02:53
Напишите программу, которая будет по 3 сторонам треугольника находить косинусы всех углов в радианах и градусах. у меня такое получилось, но он не привально вычисляет...
dankillyou2014
18.03.2021 21:25
Как решать по информатике 8 класс по теме: растровое изображение...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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
Равны