Написать программу в паскале, которая из секунд выделяет часы, минуты и секунды. Помогите!!!!

Question

Ирина · Accepted Answer

readln(s); 
h:=s div 3600; 
s:=s mod 3600; 
m:=s div 60; 
s:=s mod 60; 
writeln(h,':',m,':',s);

Ленка · Answer

Скачай книгу" С++ за 21 день", там 800 страниц))).

Иван Головащенко · Answer

"которая из секунд выделяет часы, минуты и секунды" - WTF???

Олег * · Answer

примени mod, div

Александра Киселева · Answer

Как вариант 
 
....
 
var 
tm,h,m,s:string; 
begin 
s:=TimeToStr(Time); 
h:=Copy(s,1,2); 
m:=Copy(s,4,2); 
s:=Copy(s,7,2);