Даны три числа. Найти сумму 2-ух наивеличайших чисел из комплекта.

Даны три числа. Определить сумму 2-ух наивеличайших чисел из набора.

Задать свой вопрос
1 ответ
Begin
  var a:=Seq(1,3,6);
  Writeln(a);  
  Writeln((a.SplitAt(2).Item1).Max+((a.SplitAt(2).Item1).Max+a.SplitAt(2).Item2).Max);
end.
Ева Косычева
begin var a := Seq(1, 3, 9); write('Даны три числа - '); a.Println; var b := (a.SplitAt(2).Item1).Max; var c := (b + a.SplitAt(2).Item2).Max; write('Cумма 2-ух наивеличайших чисел - '); if (b = c) then Writeln(b) else Writeln(b + c);end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт