giúp em làm bài này. với ạ ----- Nội dung dịch tự động từ ảnh ----- Câu 3. Hãy tìm lỗi sai và sửa lỗi trong chương trình sau var x:longint;n:work; i,sd:longint; function gt (n:work) :longint begin if n=0 then gt:=1 else gt:=n*gt(n-1); end; begin readln(n); x:=1; for i:=1 do n |x:=x*i; writeln(x); sd:=1; while sd<>0 do sd:=x mod 10; X:=X div 10; if x<>0 then sd:=x mod 10; write (sd); readln end.
