1)Сначала суток прошло n секунд, определить: сколько полных часов прошло с начала суток,...

Question

1)Сначала суток прошло n секунд, определить: сколько полных часов прошло с начала суток, сколько полных минут прошло с начала текущего часа, сколько полных секунд прошло сначала текущей минуты.
2)Производительность труда при выполнении некоторой работы повысилась на 40%. На сколько процентов сократилось время необходимое для выполнения этой работы.
3)Велосипедист должен попасть в место назначения к определённому сроку. Известно, что если он поедет со скоростью 15 км в час, то приедет на час раньше, а если скорость будет 10 км в час, то опоздает на 1 час. С какой скоростью должен ехать велосипедист, чтобы приехать вовремя?
решите в паскале без описания

Answer 1

Задание 1:

Program Time;
Var n: LongInt;
h, m, s: Integer;
Begin
Write('n = ');
Read(n);
If (n < 0) Or (n > 86400) Then
WriteLn('n must be from 0 to 86400')
Else
Begin
h := n div 3600;
m := (n - (h * 3600)) div 60;
s := n - (h * 3600) - (m * 60);
WriteLn('Hours: ', h);
WriteLn('Minutes: ', m);
WriteLn('Seconds: ', s);
End;
ReadLn;
End.

Comments

спасибо

---

Нажмите спасибо под моим ответом если не сложно.