Question

Паскаль. Разветвляющиеся программы. Числа любые.
Заранее спасибо

Answer 1

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 uses crt; var a,b,c:integer; Procedure F(var a,b:integer); var tmp:integer; begin   If (A>B) then     begin       tmp:=A;       A:=B;       B:=tmp;     end; end; Begin   ClrScr;   write ('A= '); readln (A);   write ('B= '); readln (B);   write ('C= '); readln (C);   F(A,B);   F(A,C);   F(B,C);   writeln ('A= ',A,'  B= ',B,'  C= ',C);   readln End.