Câu 2: 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.

A.

Program FNG;
Uses crt;
Var s,e,i: longint;
Begin
        Clrscr;
        Write('Nhap e: '); Readln(e);
        i:=1;
        While s<=e do
        Begin
                s:=s+i;
                inc(i);
        End;

        Write(S);
        Readln
End.

B.

Program FNG;
Uses crt;
Var n,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0;
        While n<>0 do
        Begin
                n:=n div 10;
                inc(d);
        End;
        Write(d);
        Readln
End.

C.

Program FNG;
Uses crt;
Var n,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0;
        While n<>0 do
        Begin
                d:=d+n mod 10;
                n:=n div 10;
        End;
        Write(d);
        Readln
End.

D.

Program FNG;
Uses crt;
Var n,d,k: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0; k:=n;
        While n<>0 do
        Begin
                d:=d*10+n mod 10;
                n:=n div 10;
        End;
        If d=k then Write('Doi xung')
        Else Write('Khong doi xung');
        Readln
End.

E.

Program FNG;
Uses crt;
Var n,i: longint;

Function DX(a: longint): boolean;
Var s,k: longint;
Begin
        k:=a; s:=0;
        While a<>0 do
        Begin
                s:=s*10+a mod 10;
                a:=a div 10;
        End;
        If s=k then exit(true);
        exit(false);
End;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
                If DX(i) then Write(i,' ');
        Readln
End.