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
T Thu hương 2412 Học sinh mới Thành viên 17 Tháng một 2018 10 3 6 22 Thái Bình Thpt 12 Tháng ba 2018 #1 [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
[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 Học sinh chăm học Thành viên 24 Tháng mười một 2017 874 730 121 Hà Nội CNN | Life 17 Tháng ba 2018 #2 Mã: 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.
Mã: 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.