Аххаха, ты тоже с Харькова с программирования в 14 гимназии?
Скопировал из телеграмма?)))
Непосредственно сортировка:
for (i = 0; i < N; i++)
for (j = 1; j < N - i ; j--)
if (<span>a[i,i] > a[i+1, i+1] </span>)
{
int temp = a[i,i];
a[i,i] = a[i - 1, i - 1];
a[i - 1, i - 1] = temp;
}
program raf105;
var
s:string;
x:boolean;
i:integer;
begin
write('Введите слово: ');
readln(s);
s:= lowercase(s);
for i:=2 to length(s) do
if not x
then x:= s[i] = s[i-1];
if x
then writeln('В слове есть две подряд идущие, одинаковые буквы')
else writeln('В слове нет двух подряд идущих, одинаковых букв');
end.
<u><em>Язык PascalABC</em></u>
1<span>тактовой частоты и разрядности процессора, объема оперативной памяти.
2</span>жесткие диски - десятки - сотни Гбайт,
гибкие (флоппи)диски - 1. 4 Мбайт,
<span>CD-ROM - 700 Мбайт, </span>
<span>DVD-ROM - 4,7 (8,5; 17) Гбайт,
</span>3Жесткий магнитный диск (винчестер) - обязательное устройство внешней памяти в составе компьютера.
<span>Сменными носителями являются флоппи-диски, оптические диски, флэш-память.
</span>4Необходимый набор устройств ввода/вывода: клавиатура, манипулятор, монитор.
<span>Дополнительные устройства ввода/вывода: принтер, сканер, модем, акустическая система.</span>
Ответ:
вычисление A в степени n
Объяснение:
выполняется цикл n раз
в теле цикла число A умножается само на себя