Giải bài tập Pascal *D2T*

[Smileeeee[D2T Physics]]

Ác, thầy có bài tính x^y với x và y nhập từ bàn phím. Ai viết dùm em chương trình lun với. Khó ác

Hay thế. Tớ cũng thích làm pascal. Tớ làm bài này thế này, cậu xem lại xem có đc không
var x,y,i,S:integer;
begin
clrscr;
write('moi nhap x.y '); readln(x,y);
S:=1;
for i:=1 to y do S:=S*x;
write('x^y=',S:10);
readln
end.

[thanhkhoeo[D2T Physics]]

Hay thế. Tớ cũng thích làm pascal. Tớ làm bài này thế này, cậu xem lại xem có đc không
var x,y,i,S:integer;
begin
clrscr;
write('moi nhap x.y '); readln(x,y);
S:=1;
for i:=1 to y do S:=S*x;
write('x^y=',S:10);
readln
end.

S:longint em

s integer thì đc mấy