Question

Pascal помогите прошу! Не понимаю

Answer 1

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.

Answer 2

Твоя прога работает не корректно, попробуй ввести 22 59 30 и он выдаст не существующее время

Answer 3

исправил

Answer 4

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.