Mình làm 2 cách luôn:
C1: Sử dụng string, giá trị tối đa là 255 chữ số.
uses crt;
var s:string;
begin
clrscr;
write('Nhap 1 so=');readln(s);
writeln('So do la: ',s);
readln
end.
C2: Sử dụng array of char, giá trị tối đa là 1000000000 chữ số với Window 32 bit
và 2000000000 chữ số với Window 64 bit .
uses crt;
var a:array[1..1000000000]of char; i,n:longint;
begin
clrscr;
write('Nhap so luong chu cua so: ');readln(n);
write('Nhap so do: ');
for i:=1 to n do read(a[i]);
writeln('So do la: ');
for i:=1 to n do write(a[i]);
readln
end.
