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ố

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Admin
avatar

Posts : 113
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 : 16

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ố
Xem chủ đề cũ hơn Xem chủ đề mới hơn 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