1. Viết chương trình Nhập vào số giây cần đổi. Xuất ra màn hình giờ, phút, giây tương ứng (sử dụng phép toán DIV, MOD) 2. Viết chương trình Nhập vào số tiền cần đổi. Xuất ra màn hình số lượng tờ tiền có mệnh giá 1000, 800, 500 đồng và số dư còn lại (sử dụng phép toán DIV, MOD)

1. 

program ct;
uses crt;
var i,phut,giay:Qword;
begin
    clrscr;
    writeln('Nhap so giay: ');readln(i);
    phut:=i div 60; giay:= i mod 60;
    writeln(i,' giay = ',phut,' phut ',giay,' giay ');
    readln;
end.

2.

program ct;
uses crt;
var t1000,t500,t800,du,SoTienCanDoi,sotienbandau:Qword;
begin
    writeln('Nhap so tien can doi:');readln(SoTienCanDoi);

    sotienbandau:=SoTienCanDoi;
    t1000:=SoTienCanDoi div 1000;
    SoTienCanDoi:=SoTienCanDoi-t1000*1000;
    writeln(SoTienCanDoi);
    t800:=SoTienCanDoi div 800;
    SoTienCanDoi:=SoTienCanDoi-t800*800;
    t500:=SoTienCanDoi div 500;
    SoTienCanDoi:=SoTienCanDoi-t500*500;
    du:= SoTienCanDoi;
    writeln(sotienbandau,'đ = ',t1000,' to 1000đ, ',t800,' to 800đ, ',t500,' to 500đ, ','du: ',du,'đ');
    readln;
end.

__________________________________

#Duahauvn