3 replies to this topic

[pe_kid_55]

Bài I:Nhập số nguyên n:
1. Tính tổng các chữ số của nó.
2. Đếm số lượng chữ số 0 của n.
3. Tìm chữ số đầu tiên.
4. Tìm số có giá trị lớn nhất.
5. Đếm xem có bao nhiêu chữ số có giá trị nhỏ nhất.

Bài II:
Tìm số đảo ngược Y của một số X, biết Y gồm các chữ số của X và viết theo thứ tự ngược lại.

[perfectstrong]

Vì là mod nên mình chỉ gợi ý nho nhỏ:
cả 2 bài đều sử dụng kiểu dữ liệu chuỗi.

p/s: bạn kiểm tra lại đề bài I

[phung khac bac linh]

Bài I:Nhập số nguyên n:
1. Tính tổng các chữ số của nó.
2. Đếm số lượng chữ số 0 của n.
3. Tìm chữ số đầu tiên.
4. Tìm số có giá trị lớn nhất.
5. Đếm xem có bao nhiêu chữ số có giá trị nhỏ nhất.

Bài II:
Tìm số đảo ngược Y của một số X, biết Y gồm các chữ số của X và viết theo thứ tự ngược lại.

Bài I: Các câu 1,2,3 có thể dùng chương trình sau:

program bai1;
uses crt;
type bignum = string;
var n:bignum;
Function tccs(n:bignum):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to length(n) do
s:=s+ ord(n[i]) - 48;
tccs:=s;
end;
Function sls0(n:bignum):integer;
var i,dem:integer;
begin
dem:=0;
for i:=1 to length(n) do
if n[i]='0' then dem:=dem+1;
sls0:=dem;
end;
begin
clrscr;
writeln('nhap n: '); readln(n);
writeln('tong cac chu so la: ', tccs(n));
writeln('so luong so 0 la: ',sls0(n));
writeln('chu so dau tien la: ',ord(n[1])-48);
readln
end.

Còn 2 câu 4,5 kia thì chỉ cần tạo 2 cái Function nữa là xong, 1 Function tìm số lớn nhất, 1 Function đếm số lượng số nhỏ nhất. Cái này bạn tự suy nghĩ nha .

Bài II:

program bai2;
uses crt;
type bignum=string;
var n:bignum;
i:integer;
begin
clrscr;
write('nhap X: ');
readln(n);
writeln('Y la: ');
for i:=length(n) downto 1 do
write(n[i]);
readln
end.

Edited by phung khac bac linh, 31-05-2011 - 12:22.

[pe_kid_55]

Bài I:Nhập số nguyên n phải dùng while còn bài II cũng vậy.