Составьте программу вычисления выражения (разными применяя каждый из операторов while, repeat, for) a^p, где p - целое число. pascal / надо.

1)Это с

var a,p,i,c:integer;
begin
  readln(a);
  readln(p);
  c:=1; i:=0;
  while i<p do
  begin
    c:=c * a;
    inc(i);
  end;
  writeln(c);
  readln;
end.

2) Это с

var a,p,i,c:integer;
begin
  readln(a);
  readln(p);
  c:=1; i:=0;
  repeat
    c:=c * a;
    inc(i);
  until i=p;
  writeln(c);
  readln;
end.

3) Это с

var a,p,i,c:integer;
begin
  readln(a);
  readln(p);
  c:=1;
  for i:=1 to p do
    c:=c * a;
  writeln(c);
  readln;
end.

Тест 1. Цель информатизации общества заключается в

Варианты ответа:

1 справедливом распределении материальных благ;

2 удовлетворении духовных потребностей человека;

3 максимальном удовлетворении информационных потребностей отдельных граждан, их групп, предприятий, организаций и т. д. за счет повсеместного внедрения компьютеров и средств коммуникаций.

Вопрос:

Тест 2. В каком законе отображается объективность процесса информатизации общества

Варианты ответа:

Закон убывающей доходности.

Закон циклического развития общества.

Закон “необходимого разнообразия”.

Закон единства и борьбы противоположностей.

Вопрос:

Тест 3. Данные об объектах, событиях и процессах, это

Варианты ответа:

1 содержимое баз знаний;

2 необработанные сообщения, отражающие отдельные факты, процессы, события;

3 предварительно обработанная информация;

4 сообщения, находящиеся в хранилищах данных.

Вопрос:

Тест 4. Информация это

Варианты ответа:

1 сообщения, находящиеся в памяти компьютера;

2 сообщения, находящиеся в хранилищах данных;

3 предварительно обработанные данные, годные для принятия управленческих решений;

4 сообщения, зафиксированные на машинных носителях.

Вопрос:

Тест 5. Экономический показатель состоит из

Варианты ответа:

1 реквизита-признака;

2 графических элементов;

3 арифметических выражений;

4 реквизита-основания и реквизита-признака;

5 реквизита-основания;

6 одного реквизита-основания и относящихся к нему реквизитов-признаков.

Вопрос:

Тест 6. Укажите правильную характеристику реквизита-основания экономического показателя

Варианты ответа:

Реквизит-основание определяет качественную сторону предмета или процесса.

Реквизит-основание определяет количественную сторону предмета или процесса.

Реквизит-основание определяет временную характеристику предмета или процесса.

Реквизит-основание определяет связь между процессами.

Вопрос:

Тест 7. Укажите правильную характеристику реквизита-признака экономического показателя

Варианты ответа:

Реквизит-признак определяет качественную сторону предмета или процесса.

Реквизит-признак определяет количественную сторону предмета или процесса.

Реквизит-признак определяет временную характеристику предмета или процесса.

Реквизит-основание определяет составляющие элементы объекта.

Вопрос:

Объяснение:

1)//Вправо
Const
 n=10;

type
 ty=array[1..n] of integer;

var
 ar:ty;
 i,k:integer;

 procedure push(var ar:ty);
var
 i,c:integer;
begin
 c:=ar[n];
 for i:=n downto 2 do
 ar[i]:=ar[i-1];
 ar[1]:=c;
end;

 begin
 randomize;
 writeln('Enter K:');
 readln(k);
 writeln('First array:');
  for i:=1 to n do
   begin;
    ar[i]:=random(10);
    write(ar[i]:4);
   end;
  for i:=1 to k do
  push(ar);
 writeln;
 writeln('Final array:');
  for i:=1 to n do
   write(ar[i]:4);
end.
2)var
 a,i,b,r,n:integer;
 s,se:string;

procedure preob(var a,b,n:integer; var se:string);
 begin
  repeat
   b:=a mod n;
   a:=a div n;
   str(b,se);
   s+=se;
  until (a<=n-1);
 end;

begin
readln(a);
readln(n);
preob(a,b,n,se);
str(a,se);
s+=se;
for i:=1 to length(s) div 2 do
begin;
se:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=se[1];
end;
val(s,r,a);
write(r);
end.