1.панель задач
2.щелкнуть правой клавишей мыши, в контекстном меню выбрать "создать"
3. Щелкните правой кнопкой мыши пустую область на рабочем столе, выберите пункт Создатьи выберите пункт ярлык.Нажмите кнопку Обзор.Найдите программу или файл, для которого требуется создать ярлык, щелкните нужную программу или файл, нажмите кнопку Открытьи нажмите кнопку Далее.Введите имя для ярлыка. <span>Если в нижней части диалогового окна появится кнопка Готово , нажмите кнопку. </span><span>Если кнопка Далее
отображается в нижней части диалогового окна, щелкните ее, выберите
значок, который требуется использовать для ярлыка и нажмите кнопку Готово.</span>
4.быстрое создание - Ctrl+Shift+N
, иначе правая клавиша мыши - создать - папка
5.навести на название, один раз щелкнуть по названию левой клавишей мыши, переименовать, нажать enter или же нажать ПКМ по объекту и в контекстном меню выбрать "Переименовать"
6.Удаление ярлыка не приведет к удалению программы
7.Нажать на объект ПКМ , в контекстном меню выбрать отправить - на рабочий стол (ярлык)
8.Внешне - наличием "стрелочки" в левом нижнем углу (системный ярлык - мой компьютер,корзина)
9.Переименовать и удалить
10.Ярлык нужен для быстрого открытия программ
11.Окна каскадом,окна стопкой, окна рядом если по расположению, если нет - в дальнейших вопросах ответы есть) (приложение, документ, папка)
12.про адрес: документ - нет, папка - да, приложение - нужно смотреть по типу приложения
Program YaBidlo;
Var
i, A: longint;
x,
u, j,
N, m : longint;
Function FDiv (A, left : LongInt) : LongInt;
var
d,
i : longint;
begin
d := 1;
for i := left to Trunc (Sqrt (A)) do
if (A mod i = 0)
then
begin
d := i;
Break;
end;
if (d <> 1)
then
FDiv := d
else
FDiv := A;
end;
Function g (N, u : longint) : longint;
var
i : longint;
begin
i := 0;
while (N mod u = 0)
do
begin
Inc (i);
N := N div u;
end;
g := i;
end;
Begin
Assign (Input, 'input.txt');
Assign (Output, 'output.txt');
Reset (Input);
Read (A);
Close (Input);
m := 0;
N := 1;
i := FDiv (A, 2);
u := 2;
while (A > 1)
do
begin
N := N * i;
j := 0;
while (A mod i = 0)
do
begin
Inc (j);
A := A div i;
end;
if (j > m)
then
begin
m := j;
u := i;
end;
i := FDiv (A, i + 2);
end;
x := 1;
while (g (N * x, u) * N * x < m)
do
Inc (x);
N := N * x;
ReWrite (Output);
Write (N);
Close (Output);
End.
Var s:string; i:integer;
begin
writeln('Введите слово:');
readln(s);
for i:=1 to length(s) do write(s[i],' ');
<span>end.
Пример:
Введите слово:
primer
<span>p r i m e r
</span></span>
Program Project1;
var m:array of integer; res, n, i:integer;
begin
repeat
write('n: '); readln(n);
SetLength(m, Length(m)+1);
m[Length(m)-1]:=n;
until n=0;
res:=0;
for i:=1 to Length(m)-1 do
if m[i]<0 then res:=res+m[i];
writeln('Result:=', res);
readln;
end.
