Var n,h,m,s:integer;
begin
write('n = ');
readln(n);
h:=n div (60*60);
m:=n mod (60*60) div 60;
s:=n mod 60;
write(h,':');
if m<10 then write(0);
write(m,':');
if s<10 then write(0);
writeln(s);
end.
Пример 1:
n = 86399
23:59:59
Пример 2:
n = 18125
5:02:05
1)3*2^13/2^12=6 бит на пиксель 2^6= 64 Ответ 64
2)240*192*24=1105920бит 16777216=2^24
А) меню
б)пуск
в)главного меню
г)окно программы