Введите три числа a b c найдите сумму двух наибольших из них

Пример ввода 6 4 9

Пример вывода 15

На паскале

Question

Информатика

Еня

31 июля, 22:07

Введите три числа a b c найдите сумму двух наибольших из них

Пример ввода 6 4 9

Пример вывода 15

На паскале

+4

Ответы (1)

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

Петр · Answer 1

Var

a, b, c, min:integer;

begin

Write ('Введите три числа: ') ; Read (a, b, c) ;

if a>b then min:=b else min:=a;

if c
Writeln ('Сумма двух наибольших равна ', a+b+c-min)

end.

Пример

Введите три числа: 6 4 9

Сумма двух наибольших равна 15

Введите три числа a b c найдите сумму двух наибольших из нихПример ввода 6 4 9Пример вывода 15На паскале

Введите три числа a b c найдите сумму двух наибольших из них

Пример ввода 6 4 9

Пример вывода 15

На паскале