видоизменить сортировку вставкой. У меня есть такой код:
var
a: array[1..10000] of Word;
i, j, t: LongInt;
begin
for i := 2 to n do begin
t := a[i];
j := 1;
while a[j] < t do
Inc (j);
{
for k := i downto j + 1 do
a[k] := a[k - 1];
}
a[j] := t
end.
Так вот, нужно заменить закомментированную часть кода функцией Move
*Черные чернила. Изобретением чернил мы также обязаны древнему Египту. Для их изготовления египтяне смешивали сажу, растительную смолу и пчелиный воск. Чтобы сделать чернила разных цветов, они заменяли сажу с другим органическим материалом. Например, они использовали охру вместо сажи, чтобы сделать чернила красными
* Плуг. Изобретение плуга не только коренным образом развило сельское хозяйство египетской общины, но модифицированная версия до сих пор используются фермерами отсталых стран, которые не могут себе позволить купить автоматические комбайны.
* Часы. Египтяне научили мир определять время суток, придумав часы. Они изобрели два типа часов: солнечные и водяные часы. Солнечные часы - это были обелиски на которых движущиеся тени в течение дня египтянам определять время дня.
Я бы написал по другому
Program vozvedenie_v_stepen;
var a,b:integer;
begin
writeln ('Введите число, которое будем возводить в степень');
readln (a);
writeln ('Введите число, обозначающее степень, в которую будем возводить');
readln (b);
Writeln (a,' в степени ',b,' = ',exp(b*ln(a)));
end.
Извиняюсь за неправильный ответ. Не увидел, что вам нужно с циклом. Тогда лучше так...
Program vozvedenie_v_stepen;
var a,b,c,d:integer;
begin
writeln ( 'Введите число, которое будем возводить в степень' );
readln (a);
c:=a;
writeln ( 'Введите число, обозначающее степень, в которую будем возводить');
readln (b);
for d:= 2 to b do
a:=a*c;
if b=0 then
writeln(1)
else
writeln (c,' в степени ',b,' = ',a);
end.