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
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.
Lời giải 1 :
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.
Thảo luận
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK