Помогите решить в Паскаль:

Дано время: часы, минуты, секунды. Определите время через 10 секунд.

Начало, думаю, такое. А обратно в часы и минуты перевести не могу. Выдает ошибку

program upr3;

var h, m, s, c, i:real;

begin

readln (h, m, s) ;

i: = h3600+m60+s;

c: = i+10;

Question

Информатика

Васяк

14 мая, 06:11

Помогите решить в Паскаль:

Дано время: часы, минуты, секунды. Определите время через 10 секунд.

Начало, думаю, такое. А обратно в часы и минуты перевести не могу. Выдает ошибку

program upr3;

var h, m, s, c, i:real;

begin

readln (h, m, s) ;

i: = h3600+m60+s;

c: = i+10;

+4

Ответы (1)

Знаете ответ?

София · Answer 1

Var

h, m, s, i: integer;

begin

readln (h, m, s) ;

i : = h * 3600 + m * 60 + s + 10;

h : = i div 3600;

m : = i mod 3600 div 60;

s : = i mod 60;

writeln (h, ' ', m, ' ', s) ;

end.