Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
математик215
08.03.2023 15:09 •
Информатика
Даны 3 числа определить,что больше сумма или произведение этих чисел паскаль
Показать ответ
Ответ:
natgaleeva82
29.06.2020 21:51
Program test;
var a,b,c,sum,pr:integer;
beginreadln(a,b,c);
sum:=a+b+c;
pr:=a*b*c;
if sum>pr then writeln ('сумма больше произведения')
else writeln('произведение больше суммы');
end.
0,0
(0 оценок)
Ответ:
Имра11111
29.06.2020 21:51
Uses crt;
var a, b, c, s, f:integer;
begin
write('a='); read(a);
write('b='); read(b);
write('c='); read(c);
s:=a+b+c; f:=a*b*c;
if s>f then write('Сумма больше.') else write('Произведение больше.');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Mark786
28.05.2022 14:52
Кто объяснит, как составлять программы в паскале? и решить : написать в программу нахождения периметра и площади прямоугольника, значения сторон которого надо вводить с клавиатуры....
Alica56
08.08.2022 16:53
X=Y=Z=9 i XY=5,6 Z=X+Y X=Y=5 Z=X+Y XY=5,2 Z=X**Y Назад...
kpnkipm
03.03.2022 13:18
Найди ошибки в представленном ниже коде программы. запиши в ответ исправленный код программы.a=int input()b=int input()t= A+Bprint(c)...
Ембергенова
28.04.2021 06:45
Величини що можуть набувати значень із дикої множини послідовності символів зокрема слів або наборі з слів називається...
katyasasha1415
01.08.2020 18:42
После выполнения команды присваивания x:=x+y значение переменной x равно 5, а значение переменной y равно 17. Чему были равны значения переменных x и y до выполнения указанной команды...
Аделина2201
30.07.2021 07:47
Намиши 4-5 предложение на тему: «Какие роботы будут больше использоватьсяв будущем?» ЗАРАНЕЕ ...
Ekirakosyan12
21.02.2021 13:40
Составьте программу,которая для целого числа k(от1 до 99) ,введеного вами,напечатает фразу Мне k лет , при этом в нужных случаях слово лет заменяя на год и года В кумире...
ПрохладныйВетер
04.05.2023 08:04
1. Нарисуй узор из геометрических фигур....
Надежда2709
08.12.2020 08:38
Складіть програму для написання стовпчика з ПАРНИХ випадкових чисел у діапазоні від -20 до 20, та обчисліть їхню кількість. Поради: при використанні цикла for i in range() запишіть...
lyalyajan
13.07.2022 20:42
коме керек катты отинемин ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c,sum,pr:integer;
beginreadln(a,b,c);
sum:=a+b+c;
pr:=a*b*c;
if sum>pr then writeln ('сумма больше произведения')
else writeln('произведение больше суммы');
end.
var a, b, c, s, f:integer;
begin
write('a='); read(a);
write('b='); read(b);
write('c='); read(c);
s:=a+b+c; f:=a*b*c;
if s>f then write('Сумма больше.') else write('Произведение больше.');
end.