tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано количество секунд сначала
Дано количество секунд сначала суток. вычислить текущее время в виде количества часов, минут и секунд.
Маруся203
1 26.05.2019 05:50
1
Ответы
AngelinaMois
22.06.2020 15:11
Var h,m,s,a: integer;
begin
readln(a);
h:= a div 3600;
m:= (a - h*3600) div 60;
s:= a - m*60 - h*3600;
writeln(h); writeln(m);write(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
belbeksev
22.06.2020 15:11
Uses crt;
var a,h,m,s:integer;
begin
readln(a);
h:=a div 3600;
a:=a mod 3600;
m:=a div 60;
a:=a mod 60;
s:=a;
write(h,':',m,':',s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Hunterxxxx
14.09.2020 23:27
решить уравнение..х байт+2048 Кб=2,5Мб...
kunakovdp06u5r
06.12.2021 18:53
1. Считать сумму введенных с клавиатуры чисел до тех пор, пока не будет введен -1. 2. С клавиатуры вводится натуральное число. Найти его наибольшую цифру. (Например,...
iralubov
06.12.2021 18:53
6) Найдите основание x системы счисления, если известно, что 2002 х = 13 0 ¹⁰ ....
DrYgAn8998
12.04.2021 10:46
Используя буквы в таблице, составьте слова, относящи еся к данной теме.БУAГBЖXKИEIIЛЫЖоСдРБMАНTЗ...
Олесяолесенька
17.08.2019 00:00
Носитель информации древняя берестенная грамота?...
зюзенька
17.08.2019 00:00
Файл стих. txt находится на диске c: каталоге труды который является подкаталогом каталога дом. запишите полное имя файла...
Game777World
17.08.2019 00:00
Вturbo pascal: дано трехзначное число. написать программу осуществляющую вывод этого числа в обратном порядке...
DanilДюжик
17.08.2019 00:00
Считая, что каждый символ кодируется одним байтом, определите информационный объем следующего высказывания дени дидро: что такое истина? соответствие наших суждение...
Anny2007Bell
17.08.2019 00:00
Номер 5. считая, что каждый символ кодируется одним байтом, определите информационный объем следующего предложения в кодировке unicode: один пуд-около 16,4 килограмм....
вероника20048
17.08.2019 00:10
1. перечислите наиболее распространенные виды логических структур веб-сайтов. 2. почему в именах файлов нежелательно использование символов алфавита....
Популярные вопросы
Записать цифрами и найди значения выражений 4 сот -33 дес=...
1
Вмагазин поступило 192 лыжных костюма: синие, зеленые и красные....
3
Если угол а = 36, то найдите углы пар-ма abcd...
2
На лампочці вказано : 220в, 0.5а. який опір нитки розжарення...
3
Подскажите какой сайт с призентациями по языку для 5 класса...
3
Ранн м утром на син м небе осенн м ветром у соседн го дома к...
1
Сколько вершин у много угольника каждая из вершин которого равна...
3
Составить и записать текст из 3-4 предложений...
2
Как перводится two diaries ,yuras diary ,to write in a diary...
2
Составить и записать текст из 3-4 предложений....
1
begin
readln(a);
h:= a div 3600;
m:= (a - h*3600) div 60;
s:= a - m*60 - h*3600;
writeln(h); writeln(m);write(s);
end.
var a,h,m,s:integer;
begin
readln(a);
h:=a div 3600;
a:=a mod 3600;
m:=a div 60;
a:=a mod 60;
s:=a;
write(h,':',m,':',s);
end.