Tin học Pascal tính tổng

[phamkien007]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập vào từ bàn phím một số nguyên dương n (n ≤ 1016). Hãy tính và in ra màn hình tổng các chữ số lẻ có trong số n.
Dữ liệu vào
Số nguyên dương n
Kết quả
Kết quả của bài toán
Ví dụ

Input
12346
Output
4

 

[Thủy Ling]

Nhập vào từ bàn phím một số nguyên dương n (n ≤ 1016). Hãy tính và in ra màn hình tổng các chữ số lẻ có trong số n.
Dữ liệu vào
Số nguyên dương n
Kết quả
Kết quả của bài toán
Ví dụ

Input
12346
Output
4

 

[Trâm Nguyễn Thị Ngọc]

View attachment 101302

Cái này tính tổng các chữ số lẻ của số n chứ đâu phải tính tổng các số lẻ từ 1 đến n đâu bạn. phải như thế này mới đúng chứ nhỉ.

Var
  n,k,t:integer;
Begin
 write('nhap vao so nguyen duong n:');
 readln(n);
 t:=0;
 While n<>0 do
    begin
      k:=n mod 10;
      if k mod 2 <>0 then t:=t+k;
      n:=n div 10;
    end;
  write('tong cac chu so le trong so ',n,'la:',t);
 readln
END.