Определите число, равное одному из заданных чисел, но не является ни минимальным, ни максимальным - Turbo Pascal

Формулировка задачи:

Заданы три различных числа, модуль каждого из которых не превышает 10 в 9степени. Определите число, равное одному из заданных чисел, но не является ни минимальным, ни максимальным из них.
Оригинал:
Задано три різних числа, модуль кожного з яких не перевищує 10в9степени. Визначте число, яке рівне одному із заданих чисел, але не є ні мінімальним, ні максимальним із них.

Код к задаче: «Определите число, равное одному из заданных чисел, но не является ни минимальным, ни максимальным - Turbo Pascal»

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.

6   голосов, оценка 4.500 из 5


СОХРАНИТЬ ССЫЛКУ