@ink-mate
0 / 0 / 0
Регистрация: 04.02.2014
Сообщений: 30
|
|
|
19.05.2014, 14:27. Просмотров 132. Ответов 0
Pascal | 1
2
3
4
5
6
7
| Var t:integer;
Begin
write('Введите длительность прошедшего времени в секундах: ');
readln(t);
writeln('Часов: ',t div 3600,' Минут: ',t div 60 mod 60,' Секунд: ',t mod 60);
readln;
End. |
|
0
|