Question

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

Answer 1

uses math; var a,b,c,mn,x:real; begin writeln('a,b,c'); readln(a,b,c); mn:=Min(MIn(a,b),c); x:=a+b+c-mn; write('max=',x:0:2); readln end.