type Cl = class
a:integer;
constructor Create(b:integer);
procedure P;
end;
constructor Cl.Create(b:integer);
begin
a := b;
end;
procedure Cl.P;
begin
if (a div 100 > 0) and (a > 0) then
begin
a := a - 1;
writeln('new a = ', a);
end;
end;
var
Obj:Cl;
a :integer;
begin
write('a = ');
readln(a);
Obj := Cl.Create(a);
Obj.P;
Readln;
Obj.Destroy;
end.
<span>1.Полнотекстовый поиск
2.</span><span>Фразовый поиск
3.</span><span>Поиск похожих документов
4.</span><span>Поиск по атрибутам документов
5.</span><span>Поиск нераспознанных документов
6.</span><span>Поиск по регулярным выражениям
</span><span>7.Поиск по словарю
8.п</span><span>оиск по словарю синонимов
</span>
Потому что основания являются значениями степеней двойки. Представления в этих СС удобны для работы с данными и представления данных.