Имеется 9 одинаковых с виду монет. из них одна монета фальшивая, которая легче настоящих. одна из монет прилипла в одной из чаш чашечных весов. отодрать ее не возможно. как за два взвешивания найти фальшивую монету? гирь нет.

Да вообщем-то стандартный алгоритм поиска одной фальшивки из 9. Только тут извесно легче фальшивка или тяжелее

1) 3 кучки по 3. взвешиваем 2кучки, одна отложена
* равно - тогда фальшивка в отложенной куче
 на чашу с приклееной ложем одну сомнительную
 на вторую чашу ложим одну сомнительную и одну не фальшивую

 если равно, то отложенная, если нет то сомнительная из более легкой чаши

 *не равно, если сомнительная(более легкая) кучка  с приклееной, тогда одну монету на другую чашу, одну откладываем. При равно  - фальшивка отложена, при неравно - более легкая
,если сомнительная куча без приклееной, то действуем как при равно после первого взвещивания

писать долго, на самом деле все легко

Компьютерный вирус — это компьютерная программа, вызывающая нарушение работы других программ, порчу информации, невозможность прочитать файлы, замедление либо нестабильность работы компьютера,а так же создавать копии самого
Защитить компьютер можно только антивирусами.Но антивирусы не всегда могут заметить вирус,ведь с каждым днем появляются новые вирусы.Так же защитой может быть наблюдательность,то есть не заходит на не знакомые сайты,не переходить по посторонним ссылкам.
Но корпорация Microsoft,советует также постоянно обновлять операционную систему Windows.А так же держать включенным Брандмауэр(Брандмауэр Windows или другой брандмауэр оповещают о наличии подозрительной активности при попытке вируса или червя подключиться к компьютеру. Он также позволяет запретить вирусам, червям и хакерам загружать потенциально опасные программы на компьютер)

Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
    If b > a Then
    Begin
        tmp := a;
        a := b;
        b := tmp;
    End;
    tmp := a;
    While tmp > 0 Do
    Begin
        Result := tmp;
        tmp := tmp - b;
    End;
End;

Пример программы с использованием данной функции:

Program Example;
Var a, b: Integer;

Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
    If b > a Then
    Begin
        tmp := a;
        a := b;
        b := tmp;
    End;
    tmp := a;
    While tmp > 0 Do
    Begin
        Result := tmp;
        tmp := tmp - b;
    End;
End;

Begin
    Write('a = ');
    ReadLn(a);
    Write('b = ');
    ReadLn(b);
    Write('НОД: ', NOD(a, b));
    ReadLn;
End.