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