Tin học [Lớp 11] Lập trình

[Thu hương 2412]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Lập trình cho 2 số A; B từ bàn phím. Tìm Min của 2 số trên và ghi kết quả vào tệp Baitap.doc

 

[ka1412]

uses crt;
var a,b:integer;
f:text;
begin
    clrscr;
    assign(f,'Baitap.doc');rewrite(f);
    write('Nhap a:');readln(a);
    write('Nhap b:');readln(b);
    if (a>b) then write(f,b)
    else write(f,a);
    close(f);
    readln
end.