Информатика: Решить даны 3 числа найти сумму 2 наибольших чисел

binfather

09.10.2021 15:59

Информатика

Есть ответ 👍

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

150

377

Посмотреть ответы 3

Ответы на вопрос:

BASS1111

Информатика

4,5(77 оценок)

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 thenwriteln(y+z); end.

togrul654

Информатика

4,8(37 оценок)

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.