program z1;
var t: integer;
begin
write('С начала суток секунд t = ');
readln(t);
writeln('Это составляет ',t div 3600,' часов ', t mod 3600 div 60,' минут ',t mod 3600 mod 60,' секунд')
end.
Объяснение:
div - целочисленное деление
mod - остаток от целочисленного деления
1 мин = 60 сек
1 час = 60 мин = 3600 сек
t div 3600 - сколько целых часов
t mod 3600 - сколько секунд осталось не считая целых часов
t mod 3600 div 60 - сколько целых минут
t mod 3600 mod 60 - сколько секунд осталось не считая целых часов и целых минут
Алгоритм приготовления гречневой каши обыкновенной. )
1. Поставить кастрюлю на стол
2. поставить стакан на стол
3. Поставить упаковку с гречкой на стол
4. поставить графин с водой на стол
5. насыпать полный стакан гречки
6. пересыпать гечку в кастрюлю
7. выполнить 2 раза
7.1 налить полный стакан воды
7.2. перелить стакан воды в кастрюлю
8. зажечь огонь на плите
9. поставить кастрюлю с гречкой на огонь
10. Выполнять пока не закипит
10.1. Ждать
11. Посолить
12. Накрыть крышкой кастрюлю
13. Пока не мин
13.1. Ждать
14. Выключить огонь.
