С начала суток прошло n секунд. Выведите, что покажут часы

@sergei3ru · Регистрация: 07.04.2010

Студворк — интернет-сервис помощи студентам

Условие задачи

Электронные часы показывают время в формате h:mm:ss, то есть сначала записывается количество часов, потом обязательно двузначное количество минут, затем обязательно двузначное количество секунд. Количество минут и секунд при необходимости дополняются до двузначного числа нулями.

С начала суток прошло n секунд. Выведите, что покажут часы.

Код программы:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program z1;
var
n, h, mm, ss:integer;
begin
readln(n);
h := n; mm := n; ss := n;
h := (n div 3600) mod 24;
write(' ', h);
mm := (n mod 3600) div 60;
if mm < 10 then write(':0', mm)
else write(':', mm);
ss := n mod 60;
if ss < 10 then write(':0', ss)
else write(':', ss);
end.

Пишет неправильный ответ...что же такое!!!

@sergei3ru · 17.10.2012, 15:30 **[ТС]**

И я того же мнения...ладно, спасибо огромное за помощь!

@sergei3ru · 23.10.2012, 17:55 **[ТС]**

Все же надо добить эту задачу...
Вот код...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program z1;
var
n, h, mm, ss:longint;
begin
readln(n);
ss:=n mod 60; {выделили число секунд}
n:=n div 60; {целое число минут}
mm:=n mod 60; {выделили число минут}
h:=(n div 60)mod 24; {и целое число часов}
if h<10 then write(' 0', h)
else write(' ', h);
if mm < 10 then write(':0', mm)
else write(':', mm);
if ss < 10 then write(':0', ss)
else  write(':', ss);
end.

Вроде на первый взгляд работает и все показывает верно...

Но сайт, который проверяет эту программу жутко ругается и говорит, что неверный ответ или частичное решение, выдает вот такую красоту...

N Результат Время (с) Баллы
1 Неправильный ответ 0.004 0 (1)
2 Неправильный ответ 0.004 0 (1)
3 Неправильный ответ 0.004 0 (1)
4 Неправильный ответ 0.004 0 (1)
5 Неправильный ответ 0.004 0 (1)
6 Неправильный ответ 0.004 0 (1)
7 Неправильный ответ 0.004 0 (1)
8 Неправильный ответ 0.004 0 (1)
9 Неправильный ответ 0.008 0 (1)
10 Неправильный ответ 0.008 0 (1)
11 Неправильный ответ 0.004 0 (1)
12 Неправильный ответ 0.004 0 (1)
13 Неправильный ответ 0.004 0 (1)
14 Неправильный ответ 0.000 0 (1)
15 Неправильный ответ 0.000 0 (1)
16 Неправильный ответ 0.000 0 (1)
17 Неправильный ответ 0.000 0 (1)
18 Неправильный ответ 0.000 0 (1)
19 Неправильный ответ 0.000 0 (1)
20 Неправильный ответ 0.000 0 (1)
21 Неправильный ответ 0.000 0 (1)
22 Неправильный ответ 0.000 0 (1)
23 Неправильный ответ 0.000 0 (1)
24 Неправильный ответ 0.000 0 (1)
25 Неправильный ответ 0.000 0 (1)
26 Неправильный ответ 0.000 0 (1)
27 Неправильный ответ 0.000 0 (1)

13 раз я эту программу правил по разному, что-то добавлял, что-то убирал, но все равно...результат един!
Может кто-то найдет ошибку, может она в корне программы, в самом алгоритме...Помогите, пожалуйста!

Добавлено через 22 минуты
Все же разобрался с задачей...спасибо большое пользователю с ником Puporev...

@Taranga · 23.10.2012, 23:57

В паскале были функции на подобии WinAPI. GetTime,SetTime; Может с помощью них можно что-то сделать?)
P.S. Я так проверял, за какое кол-во времени займет это:

Pascal
1
2
3
repeat
    inc(a);
until a >= 10000000;

Вышло около минуты с чем-то

@max2308 · 27.09.2015, 18:57

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var n,h,m,s: longint;
begin
read(n);
s:=n mod 60;
n:=n div 60;
m:=n mod 60;
h:=(n div 60)mod 24;
if h<10 then write('0', h)
else write(h);
if m<10 then write(':0', m)
else write(':', m);
if s <10 then write(':0', s)
else write(':', s)
end.

у меня прошло 9 тестов

ФедосеевПавел · 27.09.2015, 19:24

И это ...?
А. хорошо.
В. плохо.

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@sergei3ru 21 / 18 / 4 Регистрация: 07.04.2010 Сообщений: 806
	17.10.2012, 15:30 [ТС]
	И я того же мнения...ладно, спасибо огромное за помощь! 1

ФедосеевПавел Модератор 8675 / 4512 / 1670 Регистрация: 01.02.2015 Сообщений: 13,949 Записей в блоге: 14
	27.09.2015, 19:24
	И это ...? А. хорошо. В. плохо. 0