int comb(vector sort)
{
int n = 0; // количество перестановок
double fakt = 1.2473309; // фактор уменьшения
int step = sort.size() - 1;
while (step >= 1)
{
for (int i = 0; i + step < sort.size(); ++i)
{
if (sort[i] > sort[i + step])
{
swap(sort[i], sort[i + step]);
n++;
}
}
step /= fakt;
}
// сортировка пузырьком
for (int i = 0; i < sort.size() - 1; i++)
{
bool swapped = false;
for (int j = 0; j < sort.size() - i - 1; j++)
{
if (sort[j] > sort[j + 1]) {
swap(sort[j], sort[j + 1]);
swapped = true;
++n;
}
}
if (!swapped)
break;
}
return n;
}
F1a2.p1
sf2a2.p3
faaa.po
flag.pik
flag.png
*- любой символ, в том числе и пустой
? - один символ
program Project1;
var s,s1,s2:string;
begin
Readln(s);
s1:=copy(s,3,3);
s2:=copy(s,1,2);
delete(s,1,3);
insert(s1,s,1);
insert(s2,s,2);
Writeln(s);
Readln
end.
1) Выйди из дома
1. Начало
2. Оденься
3. ЕСЛИ дома кто-нибудь остается
ТО 4. Попрощайся
<span> </span>5. Выйди из квартир
ИНАЧЕ <span>6. Возьми ключ
</span>7. Выйди из квартиры
<span> 8. Закрой дверь на ключ
9. Конец
2)</span> Закрой дверь на ключ
1. Начало
2. Вставь ключ в скважину
3. Поверни ключ
4. Вытащи ключ из скважины
5. Убери ключ
6. Конец
var
a:real;
begin
readln (a);
a:=trunc (a); {trunc - это такая функция (уже готовая в самой программе), которая находит целую часть числа}
writeln ('Целая часть числа а равна ',a)
end.
если я правильно понял смысл