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

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

13-09-2019 22:40 Просмотры: 1
Ответы (1)
Алиаскер Акиндеева
+4
2019-09-14 00:37:33

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.