Нахождение суммы большего и меньшего из трех чисел - Pascal ABC

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

Задачи по теме: Условный оператор if. Составной оператор Написать программу нахождения суммы большего и меньшего из трех чисел.

Код к задаче: «Нахождение суммы большего и меньшего из трех чисел - Pascal ABC»

textual
var a,b,c: integer;
min, max, s: integer;
begin
writeln('Введите числа');
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;
s:=max+min;
writeln('Сумма максимального и минимального числа =', s);
end.

15   голосов, оценка 4.133 из 5


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