Vct in ra màn hình giờ phút giây khi nhập vài số giây

0 bình luận về “Vct in ra màn hình giờ phút giây khi nhập vài số giây”

1. uses crt;

      var gio, phut, giay: real;

   begin

      clrscr;

      write(‘Nhap giay: ‘); readln(giay);

      gio:=3600*giay;

      phut:=60*giay;

      writeln(‘Gio = ‘, gio);

      writeln(‘Phut = ‘, phut);

      writeln(‘Giay = ‘, giay);

      readln

   end.

   Bình luận

2. Uses crt;
   Var s, p, g: real;
   Begin
   Clrscr;
   Write(‘Nhap so giay: ‘); readln(s);
   p:=60*s;
   g:=3600*s;
   Writeln(‘So gio la: ‘,g);
   Writeln(‘So phut la: ‘,p);
   Writeln(‘So giay la: ‘,s);
   Readln
   End.

   Bình luận