Изначально есть три функции, включающие цвета.
yellow()
red()
green()
Делаем таймер под название time, а потом пишем подобное:
do {
if (time<10)
red();
if (time<10)
yellow();
if (time<10)
green();
}
1) 1*2^6+1*2^5+0*2^4+0*2^3+1*2^2+1*2^1+0*2^0=64+32+0+0+4+2+0=102
2)012 = 0∙21+1∙20 = 0+1 = 110
А) 40960 бит
б) 1.5 Кбайт = 1536 байт
в) 0.00024 Кбайт = 0.25 байт
г) 1.5 Гбайт = 1572864 Кбайт
д) если 2_ значит 2 умножить, то так:
2(262144) байт = 2(2097152)
Если в задании опечатка и там нет2 то так:
524288 = 4194304 бит
Var
a,b,am,nod,bb:integer;
begin
readln(a);
writeln('--------');
readln(b);
am:=a mod b;
bb:=b;
while am*b<>0 do
if am>b then am:=am mod b else b:=b mod am;
nod:=am+b;
writeln(a div bb,' ',a mod bb div nod,'/',bb div nod);
end.
Ввод:
14
-------
3
Вывод:
4 2/3