Решить задачу

Даны 3 числа найти сумму 2 наибольших чисел

Question

Информатика

Артемей

22 апреля, 19:35

Решить задачу

Даны 3 числа найти сумму 2 наибольших чисел

+3

Ответы (2)

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

Рудольф · Answer 1

Program sum2; var x, y, z:real; beginread (x, y, z) ; if x>z thenif y>z thenwriteln (x+y) ; if x>y thenif z>y thenwriteln (x+z) ; if y>x then if z>x then writeln (y+z) ; end.

Ноябрина · Answer 2

var

a, b, c: integer;

begin

write ('Введите три числа: ') ;

readln (a, b, c) ;

if a > b then

if b > c then writeln ('Сумма наибольших: ', a+b)

else writeln ('Сумма наибольших: ', a+c)

else if a > c then writeln ('Сумма наибольших: ', a+b)

else writeln ('Сумма наибольших: ', b+c) ;

end.

Решить задачуДаны 3 числа найти сумму 2 наибольших чисел

Решить задачу

Даны 3 числа найти сумму 2 наибольших чисел