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

Question

Информатика

Ильюша

26 июля, 20:13

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

+5

Ответы (1)

Знаете ответ?

Куля · 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 c
writeln (max+min) ;

end.

Пример:

3 8 5

11