Viết chương trình pascal sao cho số nguyên nhập vào có độ lớn tùy ý và lớn hơn cả số thực dù chỉ nhập số nguyên.

program nhap;

uses crt;

var n: string;

begin

clrscr;

write ('nhap so: ');  readln (n);

writeln ('gia tri cua so vua nhap la: ',n);

readln;

end.

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.