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.
1 votes Thanks 1
ShirokovP
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умма двух наибольших чисел - '); if (b = c) then Writeln(b) else Writeln(b + c); end.
Answers & Comments
Verified answer
Beginvar a:=Seq(1,3,6);
Writeln(a);
Writeln((a.SplitAt(2).Item1).Max+((a.SplitAt(2).Item1).Max+a.SplitAt(2).Item2).Max);
end.
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умма двух наибольших чисел - ');
if (b = c) then Writeln(b)
else Writeln(b + c);
end.