Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Khánh Như

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

Ngô Thành Chung
23 tháng 3 2022 lúc 16:47

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.

 


Các câu hỏi tương tự
Minh Hoạt
Xem chi tiết
Đặng Minh quân
Xem chi tiết
xzczwww22
Xem chi tiết
huynh chinh
Xem chi tiết
Mộng Chúc
Xem chi tiết
Thanh Vjp pro
Xem chi tiết
Ngọc Hồng
Xem chi tiết
hoichut
Xem chi tiết
Mei Mei
Xem chi tiết