Viết chương trình nhập vào giờ, phút, giây. Đổi ra có bao nhiêu giây

0 bình luận về “Viết chương trình nhập vào giờ, phút, giây. Đổi ra có bao nhiêu giây”

1. program Min;
   uses crt;
   var gio,phut,giay,kq:integer;
   begin
       writeln(‘Nhap gio, phut, giay: ‘); readln(gio,phut,giay);
       gio:=gio*3600;
       phut:=phut*60;
       kq:=gio+phut+giay;
       writeln(‘So giay la: ‘,kq);
       readln
   end.

   Bạn kiểm tra lại nha 😀 

   Trả lời

2. Program BTH;

   uses crt;

   var a,b,c,d:longint;

   begin

   clrscr;

   Write(‘Nhap gio: ‘);readln(a);

   Write(‘Nhap phut: ‘);readln(b);

   Write(‘Nhap giay: ‘);readln(c);

   a:=a*3600;

   b:=b*60;

   d:=a+b+c;

   Writeln(‘Tong so giay la: ‘,d);

   readln;

   End.

   Trả lời