Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Margo231
22.06.2020 23:31 •
Информатика
Определить минимум из 3 введенных чисел. если минимум отрицательное число, то найти сумму трех чисел, а иначе найти их произведение в паскале
Показать ответ
Ответ:
chelikteliklol
04.10.2020 06:13
Вроде так
if a>b then begin
min:=b;
end
else begin
min:=a;
end;
if c>min then begin
min:=min;
end
else begin
min:=c;
end;
writeln('Наименьшее число ',min);
if min<0 then begin
x:=(a+b+c);
end;
writeln ('Сумма' , x );
if min>0 then begin
x:=(a*b*c);
end;
writeln ('Произведение' , x ); end.
0,0
(0 оценок)
Популярные вопросы: Информатика
fietisov
05.05.2021 18:21
Задание 2. Приведите примеры, чтобы отличить тип данных в таблице: Формула Текст Число ... ... ......
AsiyaEkb
07.02.2020 03:22
Вставка символов c++ Дана строка. Получите новую строку, вставив между всеми парами соседних символов исходной строки символ ∗.Входные данныеВводится строка из...
experienceee
15.05.2021 03:28
З/2) среднесуточная температура воздуха впервую неделю марта была: 14; 15; 16; 14; 17; 17; 20 градусов по с.найдите размах, среднее арифметическое,моду и медиану...
aisharamazanovaАйша
28.01.2020 23:40
Надо! причины, позволившие грекам победить персов в 5ом веке до н.э. если ответите, я буду вам )...
treezykilla
02.12.2022 10:59
Пример систем,имеющих одинаковый состав,но разную структуру...
Lee35
28.01.2020 23:40
Таблица виды правонарушений примеры ответственность...
antimonovaanas
28.01.2020 23:40
Дайте характеристику положения двух морей! красное море и море...
sarinasergeeva
25.11.2021 17:52
Утюг обладает мощностью в 1000 вт как по вашему во сколько руб обойдётся работа этого прибора в течение 30 дней по 45 мин...
новичок535
28.01.2020 23:40
Впервенстве краснодарского края по прыжкам на батуте участвует i спортсмен из ейска, 2 спортсмена из новороссийска, 3 спортсмена из сочи и 4 спортсмена из краснодара....
Макс917572
28.01.2020 23:40
Найдите сумму первых четырнадцати членов арифметической прогрессии 30; 28; 26;...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
if a>b then begin
min:=b;
end
else begin
min:=a;
end;
if c>min then begin
min:=min;
end
else begin
min:=c;
end;
writeln('Наименьшее число ',min);
if min<0 then begin
x:=(a+b+c);
end;
writeln ('Сумма' , x );
if min>0 then begin
x:=(a*b*c);
end;
writeln ('Произведение' , x ); end.