Т.е. наводишь на элемент и появляется окошечко, вот это и называется всплывающая подсказка.
Отдет Д зелёный красный синий. пурпурный лиловый как оттенки. а черный при смешивании цвета нового не даст
Var A,B,k,Max:byte;
Begin
Max:=1;
Read(A);
B:=A;
Repeat
if A>B then
Begin
if k>Max then Max:=k;
k:=1;
While (A>B)and(A>0) do
Begin
k:=k+1;
B:=A;
Read(A);
End;
End;
if A<B then
Begin
if k>Max then Max:=k;
k:=1;
While (A<B)and(A>0) do
Begin
k:=k+1;
B:=A;
Read(A);
End;
End;
if A=B then
Begin
if k>Max then Max:=k;
k:=1;
B:=A;
Read(A);
End;
Until A=0;
if k>Max then Write(k)
else Write(Max)
End.
1. C:\Help.txt
2. C:\POPOV\News.doc
3. C:\POPOV\FOTO\friends.jpg
4. C:\POPOV\FOTO\Dog.jpg
5. C:\SIDOROV\abut.txt
6. C:\SIDOROV\FOTO\cat.jpg
8ˣ битов= 32 Кбайт
32 Кбайт * 100 = 32000байт
32000 байт * 8 = 256000 бит
8ˣ битов= 256000 бит
разложим на множители
256000 = (8*8*8*8*8*8) наиболее подходящее число : 262144
8⁶ = 262144 бит
262144 / 8 = 32 Кбайт 16ˣ битов= 128 Кбайт
128 Кбайт*100 = 128000 байт 128000 байт * 8 = 1024000 бит
16ˣ бит= 1024000 бит
1024000 = (16*16*16*16*16)
самое подходящее число : 1048576
16⁵= 1048576 бит
1048576 / 8 = 131 Кбайт