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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы