Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Trần Phương Linh
Xem chi tiết
đã cool ngầu còn cute Th...
Xem chi tiết
Linh
22 tháng 6 2021 lúc 11:48

Bạn Mai làm chiếc hộp bút của em bị hỏng.

Nguyễn Ngọc Mai Băng
22 tháng 6 2021 lúc 12:01

sinh nhật em, bạn thuỷ tặng cho em chiếc hộp bút.

Phạm Nguyên	Khang
Xem chi tiết
Bảy Lê
Xem chi tiết
Đinh Quốc Huy
Xem chi tiết
châu_fa
12 tháng 3 2023 lúc 19:28

tham khảo

Khi bạn đứng tại chỗ và quay nhanh, dung dịch trong một ống tai sẽ chuyển động theo cùng một hướng giống như bạn có một cái lắc đầu khi muốn nói "không". Nếu bạn tiếp tục quay thật nhanh, dung dịch trong tai cũng chuyển động rất nhanh. Đó là khi bạn bắt đầu cảm thấy chóng mặt.

Lê Toàn Hiếu
Xem chi tiết
Nguyễn Phúc Minh
Xem chi tiết
Hung Do Van
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 13:03

Câu 1: 

const fi='dulieu.dat'

fo='thaythe.out'

var f1,f2:text;

a:array[1..100]of string;

n,d,i,vt:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eof(f1) do 

  begin

n:=n+1;

readln(f1,a[n]);

end;

for i:=1 to n do 

  begin

d:=length(a[i]);

vt:=pos('anh',a[i]);

while vt<>0 do 

  begin

delete(a[i],vt,3);

insert('em',a[i],vt);

vt:=pos('anh',a[i]);

end;

end;

for i:=1 to n do 

  writeln(f2,a[i]);

close(f1);

close(f2);

end.

Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 13:05

Câu 2: 

uses crt;

const fi='mang.inp'

fo='sapxep.out'

var f1,f2:text;

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

i,n,tam,j:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

assign(f2,fo); rewrite(f2);

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  write(f1,a[i]:4);

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]>a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do 

  write(f2,a[i]:4);

close(f1);

close(f2);

end.

Vũ Khôi Nguyên
Xem chi tiết