Выделение произвольной области
<span>Выбрать
</span><span>Резинка
</span><span>Заливка
</span><span>Экранная лупа
</span><span>Карандаш
</span><span>Кисть
</span><span>Распылитель
</span><span>Текст
</span><span>Линия
</span><span>Кривая
</span>Прямоугольник
Многоугольник
И т.д
Жмешь на правую кнопку мыши (на папку) затем свойства и там написано : Размер папки
Канал у вас что-то уж совсем узенький :)
1. Способ с архивированием.
Архивация: 18 с.
Передача: 4*1024*1024*8:220~=152520,145 с.
Распаковка: 2 с.
итого: 18+152520,145+2=152540,145 с.
2. Способ без архивирования.
Передача: 16*1024*1024*8:220=610080 с.
Конечно, с архивированием, почти вчетверо быстрее :)
Var
s:string;
i,n:byte;
p:boolean;
begin
Write('Введите строку: ');
Readln(s);
n:=Length(s);
for i:=n downto 1 do
if s[i]=' ' then Delete(s,i,1);
n:=Length(s);
p:=true;
for i:=1 to n div 2 do
if s[i]<>s[n-i+1] then
begin
p:=false;
break
end;
if p then Writeln('Палиндром')
else Writeln('Не палиндром')
end.