Question

Cho số tự nhiên N (0< N ≤109). Hãy lập trình trả lời các câu hỏi sau: a. N có bao nhiêu chữ số?

b. Tổng các chữ số chẵn của N bằng bao nhiêu?

c. Tìm chữ số thứ K của N kể từ vị trí đầu tiên bên trái ( với K ≤ số chữ số của N)?

d. Yêu cầu:

+ Dữ liệu vào: cho trong tệp văn bản BAI1.INP gồm hai số tự nhiên N, K. Các số cách nhau một khoảng trống.

+ Dữ liệu ra: ghi vào tệp văn bản BAI1.OUT gồm ba dòng, mỗi dòng một số là kết quả của các câu a, b và c. Ví dụ:

BAI1.INP           BAI1.OUT

120346786         4 9 26 3

Answer 1

var n,T,m,i : byte;

       s:string;

       code:integer;

 begin 

 write('n = '); readln(n); str(n,S);

 write(n, ' có ',length(s),' chữ số');  {Hết câu a}

for i:=1 to length(S) do begin

                                     val(S[i],m,code);

                                      if m mod 2 = 0 then T:=T+m;

                                      end;

write('Tổng các chữ số chẵn của ',n,' bằng : S = ',S); {Hết câu b}

readln

end.