Định nghĩa: Một số là số đối xứng nếu đọc ngược cũng là nó. Show giả sử số đối xứng là abba,a khác 0. abba = 1000a +100b+10b+a = 1001a+110b do 1001 chia hết cho 7 nên abba chia hết cho 7 khi 110b chia hết cho 7 hay b chia hết cho 7. Từ đó suy ra b=0 hoặc b=7.ứng với mỗi giá trị của b có 9 giá trị của a. Vậy có 18 số cần tìm. Gọi n=xyyx(x,ý là các chữ số x khác 0) lá số đối xứng có 4 chữ số chia hết cho 7. Vậy n=1000x+100y+10y+n= 1001x+110y. mà 1001x= 7.143.x chia cho 7. Do đó n chia hết cho 7. Suy ra y chia hết cho 7(mà 110 k chia hết cho 7). Vậy ý="0,7". Suy ra từ 1000 đến 9999ta có 9.2=18(số) chia hạt cho 7 có 18 số cần tìm ( bạn ở NB phải không, đề này của SGD NB, mình cũng thi phải câu này ) Đề bài: Nhập vào một xâu S từ bàn phím rồi kiểm tra xem đó có phải là xâu đối xứng hay không? – Xâu đối xứng là xâu khi đọc từ trái sang phải hoặc đọc từ phải sang trái đều như nhau VD: “aba”, “abcba”, “12321” là xâu đối xứng. Còn “1232”, “aabcb”, “miticc06” không là xâu đối xứng. Video hướng dẫn: Hướng dẫn giải BT kiểm tra xâu đối xứng trong pascal:Cách 1: – đơn giản nhất là ta sẽ đọc ngược lại xâu S và lưu vào biến S1. sau đó kiểm tra xem S có giống S1 không? Code tham khảo kiểm tra xâu đối xứng cách 1:PROGRAM XAU_DOI_XUNG; USES CRT; VAR S,S1:STRING; i:INTEGER; BEGIN clrscr; writeln('Nhap xau '); readln(s); for i:= (length(s)) downto 1 do S1:=S1+S[i]; if (S1=S) then write('Xau doi xung') else writeln('Xau khong doi xung'); readln; END. Cách 2: -về thời gian thực hiện, cách 2 sẽ nhanh hơn cách 1 – Về ý tưởng, chúng ta sẽ kiểm tra phần tử đầu và cuối ngay lập tức, chứ không cần phải tạo ra S1 như ở cách 1. Code tham khảo kiểm tra xâu đối xứng pascalprogram xaudoixung; uses crt; var s : string; k: integer; procedure xdx(s : string ); var i : integer; kt: boolean; begin k := (length(s)); kt:=true; {gia su xau s doi xung} for i:= 1 to (k div 2) do begin if s[i] <> s[k-i+1] then begin kt:=false; break; end; end; if kt= true then writeln('Xau doi xung') else writeln('Xau khong doi xung'); end; begin clrscr; writeln('Nhap xau '); readln(s); xdx(s); readln; end. Tải tài liệu bài tập chuyên đề về xây : Download Bài tập tương tự:1. Hãy kiểm tra số nguyên được nhập vào có là số đối xứng không? – Ở bài này có 2 cách làm là sử dụng div mod hoặc cũng có thể xử lí bằng xâu như ở trên. Nguồn: kienthuc24h Đã đăng Tháng Mười Hai 6, 2016Tháng Mười 4, 2019 Điều hướng bài viết |