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...
Đọc tiếp
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
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.
Ở dòng 'Hết câu b' sửa S thành T giúp mình