Составьте программу сортировки по возрастанию значений трех переменных A; B; C

Question

Информатика

Иулиан

16 апреля, 06:30

Составьте программу сортировки по возрастанию значений трех переменных A; B; C

+1

Ответы (1)

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

Кондрат · Answer 1

Var a, b, c:integer;

begin

readln (a, b, c) ;

if ((a
else if ((b
else if ((c
if ((a>c) and (c>b)) then writeln (c)

else if ((b>c) and (b
else if ((b>a) and (a>c)) then writeln (a) ;

if ((a>b) and (a>c)) then writeln (a)

else if ((b>c) and (b>a)) then writeln (b)

else if ((c>a) and (c>b)) then writeln (c) ;

end.