Составьте программу нахождения суммы большего и меньшего из чисел a,b,c.

Question

Составьте программу нахождения суммы большего и меньшего из чисел a,b,c.

Comments

На языке Паскалт

---

паскаль*

Answer 1

var a,b,c,min,max:integer;
begin
readln(a,b,c);
if a>b then begin max:=a; min:=b end
else begin max:=b; min:=a; end;
if c>max then max:=c;
if cwriteln(max+min);
end.

Пример:
3 8 5
11

Comments

Спасибо!!!

---

Пожалуйста.