Мой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопрос
Мой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопрос
https://developer.mozilla.org/ru/docs/Web/HTML/Element/aой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопросМой ответ на вопрос
Маша МАШАИскусственный Интеллект (198195)
1 год назад
procedure CombSort(var v: array of Integer);
const factor = 1.2473309;
var i, step, t: Integer;
begin
step:=High(v);
while step>0 do begin
for i:=0 to High(v)-step do
if v[i]>v[i+step] then begin
t:=v[i]; v[i]:=v[i+step]; v[i+step]:=t;
end;
step:=Trunc(step/factor);
end;
end;
var
a: array [0..19] of Integer;
i: Integer;
begin
for i:=Low(a) to High(a) do a[i]:=High(a)-i;
CombSort(a);
for i:=Low(a) to High(a) do Write(' ',a[i]); WriteLn;
end.
Ссылка MDN
https://developer.mozilla.org/ru/docs/Web/HTML/Element/a
Текст текст Задав вопрос вы потратите 5 баллов. Задав вопрос вы потратите 5 баллов. Задав вопрос вы потратите 5 баллов.
Текст текст Задав вопрос вы потратите 5 баллов. Задав вопрос вы потратите 5 баллов. Задав вопрос вы потратите 5 баллов. Текст текст Задав вопрос вы потратите 5 баллов. Задав вопрос вы потратите 5 баллов. Задав вопрос вы потратите 5 баллов.