var h, m, s: integer;
begin
read(h, m, s);
m:= m + 1;
if m = 60 then begin
m:= 0;
h:= h + 1;
if h = 24 then h:= 0;
end;
write(h, ' ', m, ' ', s);
end.
var h,m,s,a: integer;
writeln('Введите часы, минуты и секунды через пробел: ');
read (h,m,s);
a:=h*60*60+m*60+s;
a:=a+60;
s:=a mod 60;
m:=a div 60 mod 60;
h:=a div 3600;
if h = 24 then begin
h:=0;
writeln (h,' часов ',m,' минут ',s,' секунд ');
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var h, m, s: integer;
begin
read(h, m, s);
m:= m + 1;
if m = 60 then begin
m:= 0;
h:= h + 1;
if h = 24 then h:= 0;
end;
write(h, ' ', m, ' ', s);
end.
var h,m,s,a: integer;
begin
writeln('Введите часы, минуты и секунды через пробел: ');
read (h,m,s);
a:=h*60*60+m*60+s;
a:=a+60;
s:=a mod 60;
m:=a div 60 mod 60;
h:=a div 3600;
if h = 24 then begin
h:=0;
end;
writeln (h,' часов ',m,' минут ',s,' секунд ');
end.