Sử dụng ngôn ngữ lập trình Pascal để giải quyết các bài toán sau: A. Tìm giá trị nguyên dương nhỏ nhất để tổng S = 1+2+3+… > E với E là số nguyên được nhập vào từ bàn phím B. Đếm xem số nguyên dương n được nhập vào từ bàn phím có bao nhiêu chữ số C. Tính tổng các chữ số của số nguyên dương n được nhập vào từ bàn phím D. Kiểm tra số nguyên dương n được nhập vào từ bàn phím có phải là số đối xứng hay không E. Tìm tất cả các số đối xứng từ 1 đến n với n là số nguyên dương n được nhập vào từ bàn phím

A.

program Tin_hoc;

uses ccrt;

var i,e,tong,n:integer;

begin

clrscr;

write('Nhap E la so nguyen duong: ');readln(E);

while E<=0 then begin

  write('Nhap lai: ');

  readln(E)

end;

n:=1;Tong:=0;

while Tong<=E do

begin

   Tong:=0;

   inc(n);

   for i:= 1 to n do Tong:=Tong+i;

end;

writeln('Gia tri nguyen duong nho nhat de thoa man dieu kien tren la :',n);

readln;

end.

B.

program Tin_hoc;

uses crt;

var i,n,x,k:integer;

begin

clrscr;

write('Nhap so nguyen duong n: ');readln(n);

while n<=0 then begin

 write('Nhap lai: ');readln(n)

end; 

x:=n;k:=1;

while x>9 do

begin

 x:=x div 10;

 inc(k)

end;

writeln('So ',n,' co ',k,' chu so');

readln;

end.

C.

program Tin_hoc;

uses crt;

var i,n,x,tong,y:integer;

begin

clrscr;

write('Nhap n: ');readln(n);

while n<=0 then begin

 write('Nhap lai: ');readln(n)

end; 

x:=n;tong:=0;

while x>9 do

begin

 x:=x div 10;

 y:=x mod 10;

tong;=tong+y

end;

tong:=tong+x;

writeln('Tong cac chu so cua so nguyen duong ',n,' la: ',tong);

readln;

end.

D.

program Tin_hoc;

uses crt;

var i,n:integer;

begin

clrscr;

write('Nhap n: ');readln(n);

while n<=0 then begin

 write('Nhap lai: ');readln(n)

end; 

i:=1;

while i=(n-1+1) do inc(i);

if i=n then writeln('So ',n,' la so doi xung

realn;

end.