BÀI TẬP 22: MẬT KHẨU

Cu Tí thường xuyên tham gia lập trình trên mạng. Vì đạt thành tích cao nên Tí được gửi tặng một phần mềm diệt virus. Nhà sản xuất phần mềm cung cấp cho Tí một mã số là số nguyên dương N có không quá 10 chữ số. Để cài đặt được phần mềm, Tí phải nhập vào mật khẩu của phần mềm. Mật khẩu là một số nguyên dương M được tạo ra bằng cách tính tổng giá trị các chữ số của N.

Yêu cầu: Hãy tìm mật khẩu của M.

Ví dụ:  Với N = 84915 thì in ra kết quả “Mat khau la 27” (Giải thích: Mật khẩu là 27)

CODE THAM KHẢO:

program Mat_khau;

uses crt;

var n: string[10];

    i,m,a,code:integer;

begin

clrscr;

write('Nhap vao so nguyen N = '); readln(n);

m:=0;

for i:=1 to length(n) do

if n[i] in ['0'..'9'] then

begin

val(n[i],a,code);

m:=m+a;

end;

    writeln('Mat khau la: ',m);

readln;

end.