Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !

Diễn đàn tin học Văn Lang - Vạn Ninh

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 Bài toán về chữ số

Go down 
Tác giảThông điệp
Admin
Admin
avatar

Posts : 115
Danh tiếng : 5
Join date : 10/11/2014
Age : 16

Bài gửiTiêu đề: Bài toán về chữ số   13/11/2014, 12:20

Bài toán: Nhập vào 1 số nguyên dương. Tính tổng các chữ số và tìm số các chữ số.
Bài giải:
uses crt;
var n,d,tong,m:integer;
begin
clrscr;
tong:=0;
d:=0;
repeat
write('Nhap n:');readln(n);
if n>=1000 then writeln('Nhap lai!');
until n<1000;
m:=n;
while n>0 do
begin
d:=d+1;
tong:=tong+(n mod 10);
n:=n div 10;
end;
writeln('Tong cac chu so cua so ',m,' la:',tong);
writeln('So ',m,' co ',d,' chu so.');

readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
Nhọn Sky M-tp(Anh Vũ)

avatar

Posts : 11
Danh tiếng : 0
Join date : 16/11/2014
Age : 17

Bài gửiTiêu đề: Re: Bài toán về chữ số   16/11/2014, 14:51

pale sao nhìu vại Surprised
Về Đầu Trang Go down
Xem lý lịch thành viên
 
Bài toán về chữ số
Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Bài tập :: Các vòng lặp-
Chuyển đến