Bài tập 3.13: 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
2 câu trả lời
uses crt;
var a,b,c,d,e:integer;
begin
write('nhap gio:');readln(a);
write('nhap phut:');readln(b);
write('nhap giay:');readln(c);
write('nhap so giay them vao');readln(d);
e:=c+b*60+a*3600;
e:=e+d;
a:=e div 3600;
b:=(e mod 3600) div 60;
c:=e mod 60;
writeln('sau khi cong, ta co: ',a,' gio, ',b,' phut, ',c,' giay');
readln;
end.
uses crt;
var h, m, s, ss: longint;
begin
clrscr;
read(h, m, s, ss);
inc(s, ss);
if s >= 60 then
begin
m:=(m + s) div 60;
s:=s mod 60;
end;
if m >= 60 then
begin
h:=(h + m) div 60;
m:=m mod 60;
end;
writeln(h, ':', m, ':', s);
readln; readln;
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
