Bài 1:
Viết chương trình cho phép nhập từ bàn phím một số nguyên dương a và thực hiện:
a. Cho biết a là số có mấy chữ số.
b. Cho biết tổng các chữ số của a.
c. Ta gọi số “đối xứng” với a là số nguyên dương thu được từ a bằng cách đảo ngược thứ tự các chữ số của a. Viết chương trình in ra số đối xứng của số nguyên dương a.
d. Cho a và b là 2 số nguyên dương. Ta gọi tổng đối xứng của a và b là số đối xứng với tổng của số đối xứng với a và số đối xứng với b. Viết chương trình cho phép nhập hai số nguyên dương a, b và in ra tổng đối xứng của chúng.
Câu a:
uses crt;
var n:longword;
s:string;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
str(n,s);
write(‘So ‘,n,’ co ‘,length(s),’ chu so.’);
readln
END.
Câu b:
uses crt;
var n:longword;
s:string;
i,tam:byte;
tong:integer;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
str(n,s);
tong:=0;
for i:=1 to length(s) do
begin
val(s[i],tam);
tong:=tong+tam;
end;
write(‘Tong cac chu so cua so ‘,n,’ la ‘,tong,’.’);
readln
END.
Câu c:
uses crt;
var n:longword;
s:string;
i:byte;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
str(n,s);
write(‘So doi xung cua ‘,n,’ la :’);
for i:=length(s) downto 1 do
write(s[i]);
readln
END.
Câu d:
uses crt;
var a,b,tong:longword;
s1,s2:string;
i:byte;
BEGIN
clrscr;
write(‘Nhap a:’); readln(a);
write(‘Nhap b:’); readln(b);
str(a,s1); s2:=”;
for i:=length(s1) downto 1 do
s2:=s2+s1[i];
val(s2,a);
str(b,s1); s2:=”;
for i:=length(s1) downto 1 do
s2:=s2+s1[i];
val(s2,b);
tong:=a+b;
str(tong,s1);
write(‘Tong doi xung cua hai so a va b la:’);
for i:=length(s1) downto 1 do
write(s1[i]);
readln
END.
Chúc bạn học tốt.
Nếu đúng thì cho mình câu trl hay nhất nha.