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

Question

Информатика

Любуся

5 февраля, 03:06

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

+4

Ответы (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