Копирования .... что ле??????
Function pr(a, b:integer):integer; var tmp:integer;begin if b = 1 then pr := a else begin tmp := pr(a, b shr 1); inc(tmp, tmp); if b and 1 = 1 then inc(tmp, a); pr := tmp; end;<span>end; рекурсивная ф-ия, алгоритм работает гораздо быстрее лобового складывания (хоть с большими числами). Процедура пишется аналогично. (если не допрешь - скажи, сделаю)</span>
Ответ: MS Word
Total Commander - файловый менеджер
WinRar - архиватор
Notepad - блокнот
MS Word - многофункциональный текстовый редактор
В биосе проставьте USB Keyboard Support и USB Mouse Support в Enabled. Это самая частая причина. Как признак — на оптической мыши после старта не горит светодиод (нет питания). После установки Windows значение этих настроек не важно, т. к. в дело вступают уже драйверы Windows