Viết chương trình nhập từ bàn phím số nguyên n để số nguyên n ra giờ phút giây

0 bình luận về “Viết chương trình nhập từ bàn phím số nguyên n để số nguyên n ra giờ phút giây”

1. program ct; 
   uses crt; 
   var n,h,m:integer; 
   begin clrscr; 
      write(‘Nhap so n: ‘); readln(n); 
        h:=n div 3600; 
        n:=n mod 3600; 
        m:=n div 60; 
        n:=n mod 60; 
      writeln(h,’ gio ‘,m,’ phut ‘,n,’ giay’); 
   readln; 
   end.

   Học tốt!

   Bình luận

2. program ct;

   uses crt;

   var h,n,P:integer;

   begin

   clrscr;

      write(‘nhap n:=’);readln(n);

           h:=n div 3600;

           n:=n mod 3600;

           P:=n div 60;

           n:=n mod 60;

   writeln(h,’gio’,P,’phut’,n,’giay’);

   readln

   end.

   Bình luận