const m=15;
var
Form1: TForm1;
a:array[1..m]of integer;
implementation
{$R *.dfm}
function step_N(a,n:integer):boolean;
var k:integer;
begin
k:=1;
while k<a do k:=k*n;
step_N:=k=a;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
Label3.Caption:='';
for i:=1 to m do
begin
a[i]:=4+random(97);
Label3.Caption:=Label3.Caption+' '+inttostr(a[i]);
end;
ShowMessage('Введите степень');
end;
procedure TForm1.Button2Click(Sender: TObject);
var n,k,i:integer;
b:array[1..m] of integer;
begin
if not TryStrToInt(Edit1.Text,n)or(n<2) then
begin
ShowMessage('Введите степень целое число больше 1');
Edit1.Clear;
Edit1.SetFocus;
exit;
end;
k:=0;
for i:=1 to m do
if step_N(a[i],n) then
begin
k:=k+1;
b[k]:=a[i];
end;
if k=0 then Label4.Caption:='Степеней числа '+inttostr(n)+' нет'
else
begin
Label4.Caption:='Степени числа '+inttostr(n)+' есть это:';
for i:=1 to k do
Label4.Caption:=Label4.Caption+' '+inttostr(b[i]);
end;
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.