Составьте программу нахождения суммы двух наибольших из трех различных чисел.

Pascal ABC.

Question

Информатика

Светуля

9 ноября, 20:14

Составьте программу нахождения суммы двух наибольших из трех различных чисел.

Pascal ABC.

+3

Ответы (1)

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

Лонгин · Answer 1

Program symma;

var a, b, c, s:integer;

begin

Readln (a, b, c) ;

if (a > b) and (c > b) then s:=a+c;

if (b > a) and (c>a) then s:=b+c;

if (a>b) and (b>c) then s:=a+b;

if (b>a) and (a>c) then s:=b+a;

Writeln (s)

end.

Составьте программу нахождения суммы двух наибольших из трех различных чисел.Pascal ABC.

Составьте программу нахождения суммы двух наибольших из трех различных чисел.

Pascal ABC.