Решить задачу Даны 3 числа найти сумму 2 наибольших чисел
Answers & Comments
Royal21var 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.
Answers & Comments
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.