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

В Паскале.

Question

Информатика

Матфий

13 сентября, 00:25

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

В Паскале.

+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.

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

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

В Паскале.