Question

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

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<min then min:=c;
  Writeln('Сумма двух наибольших равна ',a+b+c-min)
end.

Пример
Введите три числа: 6 4 9
Сумма двух наибольших равна 15

Answer 2

Для нахождения суммы двух наибольших чисел из трех чисел a, b и c вам потребуется использовать условные операторы или сортировку. Вот пример кода на языке Pascal, который решает эту задачу:

program SumOfTwoLargestNumbers;
var
  a, b, c, sum: integer;
begin
  writeln('Введите три числа:');
  readln(a, b, c);

if (a >= b) and (a >= c) then
    sum := a + max(b, c)
  else if (b >= a) and (b >= c) then
    sum := b + max(a, c)
  else
    sum := c + max(a, b);

writeln('Сумма двух наибольших чисел: ', sum);
end.

В этом примере мы сначала считываем три числа a, b и c с помощью `readln`. Затем мы используем условные операторы (`if-else`) для определения наибольшего числа и находим сумму двух наибольших чисел. Функция `max(a, b)` возвращает большее из двух чисел a и b.

После нахождения суммы двух наибольших чисел, мы выводим результат с помощью `writeln`.

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

Пример вывода: ``` Сумма двух наибольших чисел: 15 ```

Надеюсь, это поможет вам решить задачу! Если у вас есть дополнительные вопросы, пожалуйста, дайте мне знать.