Question

program tuluan;
var n,t: integer;
begin
real (n);
if n mod 2 khác 0
then t:=n*n
else t:=n*n*n
write('t=' t:5);
readln
end.
1. sửa lỗi cú pháp cho đoạn chương trình trên nếu có
2. khi cho n=3 thì sau khi kết thúc ct, t bằng bao nhiêu?

Answer 1

1:

readln(n);

if n mod 2<>0 then t:=t*n

write('t=',t);

readln;