Viết CT kiểm tra xem 1 số nguyên được nhập từ bàn phím có tính chất đối xứng hay ko.
Sửa lỗi cho ct viết theo đề bài trên:
uses crt;
var a,n,i:integer;
begin
write('nhap so: ');readln(a);
n:=length(a);
for i:=1 to n do
if a[i] = a[n-i+1] then write('co') else write('khong');
readln
end.
số đối xứng là số gì ?
begin
write('nhap so: ');readln(a);
giữa hai dòng này thiếu cái gì tôi quên rồi , lí do là ví sử dụng thư viện crt