Question

4.  А нақты сан мен N (>0) бүтін сан берілген. А санның 1-ден N дәрежесін табу.Паскальда шығару керек отініш

Answer 1

var res, n:integer;

res =1;

readln(n);

for k=1 to n do Begin

res :=  res * A;

end;

writeln(res);