Question

Cho 3 khoảng thời gian a giờ b phút c giây, a’ giờ b’ phút c’ giây, a’’ giờ b’’ phút c’’ giây.

Hãy tính tổng 3 khoảng thời gian này (đổi ra giờ, phút, giây).

Answer 1

program gio;
uses crt;
var g:array[1..3,1..3] of integer;
K:array[1..3] of integer;
i : integer;
BEGIN
clrscr;
{nhap du lieu}
for i:=1 to 3 do
begin
read(g[i,1]);
read(g[i,2]);
readln(g[i,3]);
end;
{tinh tong gio, phut, giay}
K[3]:=(g[1,3]+g[2,3]+g[3,3]) mod 60;
K[2]:=(((g[1,2]+g[2,2]+g[3,2])+((g[1,3]+g[2,3]+g[3,3] div 60)) mod 60);
K[1]:=((g[1,1]+g[2,1]+g[3,1])+(((g[1,2]+g[2,2]+g[3,2]+(g[1,3]+g[2,3]+g[3,3] div 60)) div 60));
writeln('Tong 3 thoi gian vua nhap la ',K[1],' ',K[2],' ',K[3]);
readln;
END.

P/S: bài mình làm hơi dài và hơi khó hiểu, bạn thông cảm