Viết chương trình nhập vào từ bàn phím: giờ, phút, giây. Cọng thêm một số
giây cũng được nhập từ bàn phím. Hãy in ra kết quả sau khi cọng xong.
Gợi ý:
– Gọi số giây được cộng thêm là: ss. Gán giây:=giây+ss.
– Nếu giây60 thì: phút:=phút + giây DIV 60 và giây:=giây MOD 60.
– Nếu phút60 thì: giờ:=giờ + phút DIV 60 và phút:=phút MOD 60.
program conggio;
uses crt;
var gio,phut,giay,g:Longint;
Begin
clrscr;
write(‘Nhap gio:’);readln(gio);
Write(‘Nhap phut:’);readln(phut);
Write(‘Nhap giay:’);Readln(giay);
Write(‘Nhap so giay cong them:’);Readln(g);
giay:=giay+g;
while giay>=60 do
Begin
giay:=giay-60;
phut:=phut+1;
End;
while phut>=60 do
Begin
phut:=phut-60;
gio:=gio+1;
End;
writeln(‘Giay:’,giay);
writeln(‘Phut:’,phut);
writeln(‘Gio:’,gio);
Readln;
End.
Tick nha bạn
uses crt;
var g,p,g1,g2,t : longint;
var i,j,k : word;
begin clrscr;
write(‘Nhap gio :’); readln(g);
write(‘Nhap phut :’); readln(p);
write(‘Nhap giay :’); readln(g1);
t:=g*3600+p*60+g1;
write(‘Nhap giay moi :’); readln(g2);
t:=t+g2;
for i:=1 to 24 do
for j:=1 to 60 do
for k:=1 to 60 do
if (i*3600+j*60+k=t) then
write(i,’gio’,j,’phut’,k,’giay’);
readln
chắc luôn