Решите задачу на Паскале:
Дано время: часы, минуты, секунды. Определите время через 10 секунд.
Начало кода такое, но обратно в часы и минуты перевести не могу. Выдаёт ошибку:

program upr3;
var h,m,s,c,i:real;
begin
readln (h,m,s);
i:= h*3600+m*60+s;
c:= i+10;

Лучше решать через общее количество секунд, а затем снова перевести его в часы, минуты и секунды. Переменные времени здесь должны быть целыми, поэтому используем integer, а не real.

Код:

program upr3;
var h, m, s, t: integer;
begin
readln(h, m, s);
t := h * 3600 + m * 60 + s + 10;
t := t mod 86400;
h := t div 3600;
t := t mod 3600;
m := t div 60;
s := t mod 60;
writeln(h, ' ', m, ' ', s);
end.

Здесь \(86400\) — это количество секунд в сутках: \(24 \cdot 60 \cdot 60\). Команда div берёт целую часть от деления, а mod — остаток.

0 0 Пожаловаться