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

В Паскале.

Question

Информатика

Захар

4 февраля, 11:23

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

В Паскале.

+4

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

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

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

В Паскале.