Uses crt;
type mas=array[1..1000] of integer;
var a:mas;
n,i:integer;
procedure gnomesort(var arr:mas; size : Integer);
var i, j, t : Integer;
begin
i := 2;
j := 3;
while i <= size do
begin
if arr[i-1] <= arr[i] then
begin
i := j;
j := j + 1
end
else
begin
t := arr[i-1];
arr[i-1] := arr[i];
arr[i] := t;
i := i - 1;
if i = 1 then
begin
i := j;
j := j + 1
end
end
end;
end;
begin
write('Размер массива n=');
read(n);
writeln('Исходный массив:');
for i:=1 to n do
read(a[i]);
writeln;
gnomesort(a,n);
writeln('Результат сортировки:');
for i:=1 to n do
write(a[i],' ');
end.
1.Подключить внешний носитель информации с инсталлятором ОС к ЭВМ, на которую будет производиться установка.
2.Запустить вычислительную машину.
3.Произвести загрузку с носителя информации описанном в п.1.
4.Отформатировать файловую систему ПЗУ, на который будет производиться установка.
5.Следовать инструкциям на экране.
Все.
Если ты написал огромный текст,сочинение и так далее,тебе его нужно перенести в другой блокнот,ибо же нужно просто куда-то перенести,эта функция очень помогает! Ведь ты просто выделишь этот текст,скопируешь этот текст,и вставишь куда нужно! И не нужно все это заново писать!
10<span>000000</span>11<span>100000</span>11<span>100010</span>11<span>100011</span>11<span>100000</span>10<span>001010</span>10<span>101110</span>10<span>101101</span>10<span>100000</span>10<span>101101</span>10<span>000100</span>10<span>101110</span>10<span>101001</span>10<span>101011</span>11<span>101100</span>
Это перевод в двоичный код ( так процессор компьютера понимает символы которые мы вводим на клавиатуре ).
Var a,b,c:integer;
result:double;
begin
read(a,b,c);
result:=(a+b-c)/(a-b);
writeln(result);
end.
