[Pascal]số đối Xứng | Cộng đồng Học Sinh Việt Nam - HOCMAI Forum

• Diễn đàn Bài viết mới Tìm kiếm trên diễn đàn
• Đăng bài nhanh
• Có gì mới? Bài viết mới New media New media comments Status mới Hoạt động mới
• Thư viện ảnh New media New comments Search media
• Story
• Thành viên Đang truy cập Đăng trạng thái mới Tìm kiếm status cá nhân

Đăng nhập Đăng ký

Tìm kiếm

Everywhere Đề tài thảo luận This forum This thread Chỉ tìm trong tiêu đề By: Search Tìm nâng cao… Everywhere Đề tài thảo luận This forum This thread Chỉ tìm trong tiêu đề By: Search Advanced…

• Bài viết mới
• Tìm kiếm trên diễn đàn

Menu Install the app Install [Pascal]số đối xứng

• Thread starter truonghandan0210
• Ngày gửi 20 Tháng tư 2013
• Replies 1
• Views 12,457

• Bạn có 1 Tin nhắn và 1 Thông báo mới. [Xem hướng dẫn] để sử dụng diễn đàn tốt hơn trên điện thoại

• Diễn đàn
• CÁC MÔN HỌC KHÁC
• Tin học - máy tính
• Học lập trình
• Thảo luận chung

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. T

truonghandan0210

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Một số được gọi là số đối xứng nếu các chữ số của nó đối xứng qua tâm. VD : 5,44,696,4554. Lập trình cho phép nhập số nguyên có số chữ số \leq100. Kiểm tra xem nó có là số đối xứng hay không? Giúp với(căn bản là bài này làm gần ra rồi, chỉ còn thiếu 1 ý nữa thôi Last edited by a moderator: 20 Tháng tư 2013 M

megamanxza

Uses crt; var st: string; function KT (xau: string): boolean; var i, dem: integer; begin dem:=0; for i:= 1 to length(st) div 2 do if xau<>xau[length(xau)-i+1] then inc(dem); if dem<>0 then KT:=False else KT:=True; end; begin clrscr; write ('Nhap so co do dai khong qua 100 chu so: '); readln (st); if length(st)>100 then begin write ('Nhap khong hop le! An Enter va chay lai!'); readln; exit; end; if KT(st)=True then write ('Day la so doi xung!') else write ('Day la so khong doi xung!'); readln end. Bài này mình dùng biến có kiểu String vì không có dạng biến số nào có thể chứa một con số có tới 100 chữ số, kể cả biến Longint. Chỉ có biến String là có lợi thôi! :khi (197): Nhấn Thanks và Đúng cho mình nhá! You must log in or register to reply here. Chia sẻ: Facebook Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

• Diễn đàn
• CÁC MÔN HỌC KHÁC
• Tin học - máy tính
• Học lập trình
• Thảo luận chung

Top Bottom

• Vui lòng cài đặt tỷ lệ % hiển thị từ 85-90% ở trình duyệt trên máy tính để sử dụng diễn đàn được tốt hơn.