Составить программу для вычисления степеней чисел вида a^n, если a> Maxint, n > 10
примерно типа если а=512412512515 и n=10 то никаких типов не хватает,можно использовать массивы,но не знаю как умножить,вот что намудрил и то не знаю правильно или нет
| Код |
program dlin;
uses crt;
var
a,b:array[1..100] of integer;
s:string;
i,j,n,d,u:integer;
begin
clrscr;
writeln('введи а ');
readln(s);
d:=length(s);
for i:=1 to d do
begin
val(s[i],a[i],a[i]);
b[i]:=a[i];
end;
writeln;
for i:=d downto 1 do
begin
b[i]:=b[i]*a[i]+u;
u:=0;
b[i]:=b[i] mod 10;
u:=b[i] div 10;
end;
for i:=1 to d do
write(b[i]);
readln
end.
|
|