помогите с информатикой,срочно...:Написать процедуру,которая определяет по времени в - №1545717

помогите с информатикой,срочно...:Написать процедуру,которая определяет по времени в секундах содержащиеся в нём количество часов, минут, секунд...
пожалуйста..
- Предмет:
  Информатика
- Автор:
  levihayes
- 6 лет назад

Ответы 1

var t,a,b,c:integer;procedure irati(T:integer; var H, M, S:integer);beginH:=T div 3600;M:=(T mod 3600) div 60;S:=(T mod 3600) mod 60;end;beginread(t);irati(t,a,b,c);Writeln('Chasov ',a,' Minut ',b,' Secund ',c);end.
- Автор:
  evaklein
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы

How much to ban the user?

1 hour 1 day 100 years