Составьте программу нахождения суммы двух наибольших из трех различных чисел.
Pascal ABC.
Answers & Comments
Impersona1
Program symma; var a,b,c,s:integer; begin Readln(a,b,c); if (a > b) and (c > b) then s:=a+c; if (b > a) and (c>a) then s:=b+c; if (a>b) and (b>c) then s:=a+b; if (b>a) and (a>c) then s:=b+a; Writeln(s) end.
Answers & Comments
var a,b,c,s:integer;
begin
Readln(a,b,c);
if (a > b) and (c > b) then s:=a+c;
if (b > a) and (c>a) then s:=b+c;
if (a>b) and (b>c) then s:=a+b;
if (b>a) and (a>c) then s:=b+a;
Writeln(s)
end.