bạn đợi 1 lúc thì nó đc

trả lời hộ mik nghen

uses crt;

var x:integer;

begin

clrscr;

write('Nhap x='); readln(x);

writeln(x,' chia 3 lay du la: ',x mod 3);

readln;

end.

Bài 2:

uses crt;

var a:array[1..100]of integer;

i,n,x,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap x='); readln(x);

dem:=0;

for i:=1 to n do

if a[i]=x then inc(dem);

if dem=0 then writeln('X khong co trong mang')

else begin

write('Vi tri cua X trong mang la: ');

for i:=1 to n do

if a[i]=x then write(i:4);

end;

readln;

end.

Bài 3:

const fi='bai3.inp';
fo='bai3.out';
var f1,f2:text;
st,ln,kq,s:string;
k,d,i,vt,j:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,s);
st:='';
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then st:=st+s[i];
k:=4;
kq:='';
repeat
k:=k-1;
d:=length(st);
vt:=d-k;
ln:=st[vt];
j:=vt;
for i:=vt downto 1 do
if ln<st[i] then
begin
ln:=st[i];
j:=i;
end;
kq:=kq+ln;
st:=copy(st,j+1,d-j);
until k=0;
writeln(f2,kq);
close(f1);
close(f2);
end.

Cảm ơn bạn nhiều nha!

uses crt;

var n:longint;

st:string;

i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

str(n,st);

for i:=length(st) downto 1 do

write(st[i]);

readln;

end.

Var n,t:longint;

Begin

Write('Nhap so can in ');readln(n);

Write('So viet nguoc lai la: ');

If n < 10 then write(n)

Else

While n > 10 do

Begin

t:=n mod 10;

Write(t);

n:=n div 10;

End;

Write(n);

Readln;

End.

a) sqr(7-x) mod 5

b) 3/(5*y)-1/(20*x)-12

Cảm ơn anh đã trả lời ạ

Dòng 6: Lỗi kết thúc lệnh gán không có dấu ; . Sửa : S:=a*b;

Dòng 7: Lỗi sai phép nhân đối với Pascal. Sửa: C:=(a+b)*2;

Dòng 8: Để in ra giá trị của biến S thì không được bỏ dấu nháy. Sửa write('Dien tich hinh chu nhat la : ',S);

Dòng 9: Để in ra giá trị của biến C thì không được bỏ dấu nháy. Sửa write('Dien tich hinh chu nhat la : ',C);

Dòng cuối cũng sai.

Sửa lại thành End. (lệnh End có dấu chấm ở cuối)