- 18.06.2017 17:20
- Информатика
- remove_red_eye 17809
- thumb_up 19
Ответы и объяснения 1
var sec,chas,min:integer;
begin
readln(sec);
while sec >= 3600 do
begin
chas:= chas + 1;
sec:= sec - 3600;
end;
while sec >= 60 do
begin
min:= min + 1;
sec:= sec - 60;
end;
writeln(chas, ' ', min, ' ', sec);
end.
- 19.06.2017 19:21
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.