Найти сумму двух наибольших из трех заданных чисел.

В Паскале.

Question

Информатика

Северин

4 марта, 06:28

Найти сумму двух наибольших из трех заданных чисел.

В Паскале.

+1

Ответы (1)

Знаете ответ на вопрос?

Ион · Answer 1

Var

a, b, c, t: integer;

begin

readln (a, b, c) ;

if c > b then begin

t : = b;

b : = c;

c : = t;

end;

if c > a then begin

t : = a;

a : = c;

c : = t;

end;

writeln (a + b) ;

end.

Найти сумму двух наибольших из трех заданных чисел.В Паскале.

Найти сумму двух наибольших из трех заданных чисел.

В Паскале.