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ây60 thì: phút:=phút + giây DIV 60 và giây:=giây MOD 60.

nguyenthique22121982

2 năm trước

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ây60 thì: phút:=phút + giây DIV 60 và giây:=giây MOD 60. - Nếu phút60 thì: giờ:=giờ + phút DIV 60 và phút:=phút MOD 60.

Loga Sinh Học lớp 12

0 lượt thích 61 xem

1 trả lời

Thích Trả lời

999268073790883

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

Vote (0) Phản hồi (0) 2 năm trước

meowchangmaii

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

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

GIÚP MÌNH SOẠN VỚI Ạ 1. Văn bản có thể chia làm mấy đoạn ? Nêu nd, ý nghĩa của mỗi đoạn. 2. Tìm những chi tiết thể hiện vẻ đẹp hoang sơ, thơ mộng, vừa hùng vĩ, uy nghi của thác Dray Nur. 3. Dựa theo các truyền thuyết, hãy giải thích tên gọi của thác Dray Nur. Trong những cách giải thích đó, em thích cách giải thích đó, em thích cách giải thích nào hơn ? Vì sao ?

Giúp mình vs ạ . Xin cám ơn những ng trả lời

52 × ( y : 78 ) = 3380 55 - y + 33 =76 Nhanhhhhh ☹

16 ) Một vật có khối lượng 14000g , có thể tích 10 dm khối a) Tính khối lượng riêng của chất làm vật đó b) Tính trọng lượng riêng của chất làm vật đó bằng 2 cách

sắp xếp những câu sau : 1. Those/ pens/ pencils / are/ and /my 2. library/ and/ nice /big /the/ is 3. is /computer/ old /large/ but /the /room 4. ask/ Miss hien /may/ I /a/ question /ask /you/ , /?/

Cấu trúc giúp prôtêin thực hiện chức năng là: liên kết Hidro là gì? Bệnh Đao ở người do: *

Để ko tham gia và bạo lực học đường em cần tránh những việc làm nào

Những tiểu chuẩn để xây dựng một gia đình văn hóa

Cho nửa đường tròn tâm O đường kính CD = 2R. Từ C và D kẻ tiếp tuyến Cx và Dy về cùng một phía của nửa đường tròn. Từ một điểm E trên nửa đường tròn ( E khác C và D ) kẻ tiếp tuyến thứ 3 cắt các tiếp tuyến Cx và Dy lần lượt tại A và B 1) Chứng minh AB = AC+BD 2) Chứng minh tam giác AOB là tam giác vuông 3) Gọi F là giao điểm của AD và BC. Chứng minh EF.AB = AC.BD

Vẽ anime tức giận Đẹp nha ko đẹp = báo cáo * Chẳng hỉu hum nay cứ kiểu bực bội ý * * CAy 2 thak trong team từ nãy đến h òi *

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến