Вопрос по информатике:
РЕШИТЕ ПОЖАЛУСТА В ПАСКАЛЕ 1)Идёт k ая секунда суток.Определить, который сейчас час( в часах минутах секундах) 2)С начала месяца прошло m минут. Определить какое сейчас число и который сейчасчас час( в часах и минутах )
- 20.06.2018 00:36
- Информатика
- remove_red_eye 6230
- thumb_up 65
Ответы и объяснения 1
Чувак, лови первую:
Program Help;
Uses Crt;
Var h, m : Byte;
s : LongInt;
Begin
ClrScr;
Write('Количество секунд: ');
Readln(s);
If s >= 86400 then
Writeln('Количество секунд должно быть меньше, чем 86400!')
Else
Begin
h := s div 3600;
s := s - h * 3600;
m := s div 60;
s := s - m * 60;
Writeln(h, 'ч ', m, 'мин ', s, 'сек');
End;
Readln;
End.
- 21.06.2018 15:31
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.