BÀI 6. CÂU LỆNH ĐIỀU KIỆNCÂU HỎI VÀ BÀI TẬP
9. Thuật toán:Bớc 1. Nhập ba số A, B và C. Bớc 2. Nếu A > B, X A, A B, B X. Bớc 3. Nếu C > A, X A, A C, C X. Bớc 4. Nếu C < B, X B, B C, C X. Bớc 5. Ghi giá trị các biến theo thứ tự A, B và C và kết thúc thuật toán.Chơng trình Pascal:
uses crt;
var A, B, C, X: integer;
begin
clrscr;
write('Nhap so A: '); readln(A);
write('Nhap so B: '); readln(B);
write('Nhap so C: '); readln(C);
if A>B then begin X:=A; A:=B; B:=X end;
if C<A then begin X:=A; A:=C; C:=X end;
if C<B then begin X:=B; B:=C; C:=X end;
writeln(A,' ',B,' ',C);
readln;
end.