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.