Определите число, равное одному из заданных чисел, но не является ни минимальным, ни максимальным - Turbo Pascal
Формулировка задачи:
Заданы три различных числа, модуль каждого из которых не превышает 10 в 9степени. Определите число, равное одному из заданных чисел, но не является ни минимальным, ни максимальным из них.
Спойлер
Решение задачи: «Определите число, равное одному из заданных чисел, но не является ни минимальным, ни максимальным»
textual
Листинг программы
program blablabla; Var a,b,c,max,min,srd:longint; Begin readln(a,b,c); if a>b then max:=a else max:=b; if c>max then max:=c; if a<b then min:=a else min:=b; if c<min then min:=c; srd:=a+b+c-min-max; writeln(srd); readln End.
Объяснение кода листинга программы
В данном коде на языке Turbo Pascal происходит следующее:
- Объявляются переменные
a
,b
,c
,max
,min
иsrd
типаlongint
. - Считываются три числа с помощью функции
readln()
. - Находится максимальное число среди
a
,b
иc
. Переменнаяmax
принимает значение большего из этих чисел. - Находится минимальное число среди
a
,b
иc
. Переменнаяmin
принимает значение меньшего из этих чисел. - Вычисляется среднее арифметическое из чисел
a
,b
иc
. Переменнаяsrd
принимает значение этого среднего. - Выводится значение переменной
srd
с помощью функцииwriteln()
. - Программа завершается с помощью функции
readln()
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д