tìm từ thừa trong đoạn sau You can find all much kinds of books,magazines and newspapers here.To finding a book is very easy.the only thing you can do is to by look in the card index.These cards show the subject and they cards are in alphabetical order by with both title and author.And now please have a look at shelves.These shelves they on the right have there magazines newspapers and dictionaries.those shelves on the left library have science books and reference books.And those shelve at the come back of the library have lot history,geography,literature books. (câu nào có từ thừa nhớ viết ra nhé)

Các câu hỏi liên quan

Ai giúp mk xem bài này có lỗi nào sai không ạ? Mk thử cho chạy trên pascal trên điện thoại mà ko đc ạ Program ontapbai11_mang1chieu; uses crt; type M1d=array[1..100] of longint; var A:M1d; n,i,j,k :byte; max,s:longint; demle,demnto:byte; nto:boolean; tam:longint; Begin clrscr; { Nhap mang 1 chieu } Write( ' Nhap so luong phan tu n= '); read(n); For i:=1 to n do begin Write('A[',i,']='); read(A[i]); end; Writeln; Writeln('Mang vua nhap co ', n , ' phan tu nhu sau:'); for i:=1 to n do Write(a[i]: 10); Writeln; s:=0; for i:=1 to n do s:=s+A[i]; Writeln('Tong cac phan tu cua mang la = ', s); Writeln('Cac phan tu le cua mang la:'); for i:=1 to n do if A[i] mod 2 = 1 then Write(a[i]:10); writeln; demle:=0; for i:=1 to n do if A[i] mod 2 = 1 then demle:=demle+1; Writeln('Mang tren co ' , demle ,' phan tu le'); {xuat ra cac phan tu chi het cho k} Writeln(' Nhap so k= '); read(k); Writeln(' Cac Phan tu chia het cho k=',k,' la:'); for i:=1 to n do if A[i] mod k =0 then Write(A[i]:10); writeln; max:=A[1]; for i:=1 to n do if A[i]> max then Max:=A[i]; Writeln (' Phan tu lon nhat cua mang la: ', max); j:=1; for i:=1 to n do if A[i]> A[j] then j:=i; Writeln(' Phan tu lon nhat la= ', A[j] , ' vi thu ' ,j); writeln; Writeln('Cac so nguyen to cua mang la:'); for i:=1 to n do begin nto:=true; for j:=2 to A[i] do if A[i] mod j = 0 then nto:=false; if nto= true then Write(A[i]:10); end; writeln; demnto:=0; for i:=1 to n do begin nto:=true; for j:=2 to A[i] do if A[i] mod j = 0 then nto:=false; if nto = true then demnto:=demnto+1; end; Writeln('Mang tren co ', demnto , ' so nguyen to'); for j:=n downto 2 do for i:=1 to j-1 do if A[i] > A[i+1] then begin tam:=A[i]; A[i]:=A[i+1]; A[i+1]:=tam; end; Writeln('Mang sau khi da sap xep nhu sau:'); For i:=1 to n do Write(A[i]:10); end.