Ответ:
var o,p,s,i:integer;
begin
s:=1;
read(o,p);
for i:=1 to p do s:=s*o;
write(s)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var o,p,s,i:integer;
begin
s:=1;
read(o,p);
for i:=1 to p do s:=s*o;
write(s)
end.