Спросить у пользователя 3 целых числа

@Катерина1992 · Регистрация: 12.11.2013

Студворк — интернет-сервис помощи студентам

Спросить у пользователя 3 целых числа
Если наибольшее число - первое, то вывести сумму чисел
Если наибольшее - второе, то произведение чисел
Если наибольшее, - третье, то вывести остаток от деления суммы двух первых на третье
Если числа равны, вывести сообщение"числа равны"

@tuy-vasiliy · 13.11.2013, 12:19

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
a,b,c,d:real;
begin
     Write('Введите три целых числа: ');
     readln(a,b,c);
     if (a>b) and (a>c) then
     d:=a+b+c else
     if (b>a) and (b>c) then
     d:=a*b*c else
     if (c>a) and (c>b) then
     d:=(a+b)/c;
     if (a=b)and(b=c) then
     writeln('Числа равны')else
     write(d);
end.

немного не разобрался, но всё же чем смог тем помог...
Не помню как вывести остаток от деления, поэтому сделал просто деление.
P.s. Код программы не будет работать если ввести два одинаковых числа...

@Sead · 13.11.2013, 12:22

Сообщение от tuy-vasiliy

Не помню как вывести остаток от деления, поэтому сделал просто деление.

а не Div лучаем?

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@Катерина1992 0 / 0 / 0 Регистрация: 12.11.2013 Сообщений: 33

	Спросить у пользователя 3 целых числа 13.11.2013, 11:47. Показов 1637. Ответов 2 Метки нет (Все метки) Спросить у пользователя 3 целых числа Если наибольшее число - первое, то вывести сумму чисел Если наибольшее - второе, то произведение чисел Если наибольшее, - третье, то вывести остаток от деления суммы двух первых на третье Если числа равны, вывести сообщение"числа равны" 0

Спросить у пользователя 3 целых числа

Решение