giải giúp bài này

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

giải giúp bài này

Bài gửi by huongtramy on 6/1/2011, 3:34 pm

Cho số tự nhiên n (n <= 1000).
a/ Số tự nhiên n có bao nhiêu chữ số.
b/ Tìm tổng các chữ số của n
c/ Tìm chữ số cuối cùng của n
d/ Tìm chữ số đầu tiên của n.
e/ Với n>=10. Hãy tìm chữ số hàng chục của n.
avatar
huongtramy
Thành viên mới
Thành viên mới

Nam Ngày sinh : 17/05/1978
Tuổi : 39
Ngày đăng ký : 06/01/2011

Về Đầu Trang Go down

Re: giải giúp bài này

Bài gửi by Admin on 9/1/2011, 12:28 pm

của bạn đây :

Code:

program help;
uses crt;
var n,socs,tongcs,csd,csc,cshc:integer;
begin
clrscr;
write('nhap n : ');
readln(n);
cshc:=-1;
repeat
      if socs=1 then cshc:=n mod 10;
      if socs=0 then csc:=n mod 10;
      if n div 10=0 then csd:=n mod 10;
      tongcs:=tongcs+(n mod 10);
      inc(socs);
      n:=n div 10;
until n=0;
writeln('so chu so : ',socs);
writeln('tong cac chu so : ',tongcs);
writeln('chu so dau : ',csd);
writeln('chu so cuoi : ',csc);
if cshc<>-1 then writeln('chu so hang chuc : ',cshc);
readln;
end.
avatar
Admin
Quản trị viên
Quản trị viên

Nam Ngày sinh : 18/01/1992
Tuổi : 25
Ngày đăng ký : 25/04/2008

http://diendanpascal.forumotion.com

Về Đầu Trang Go down

Re: giải giúp bài này

Bài gửi by tue96 on 14/1/2011, 9:39 pm

thử xem sao:


program help;
uses crt;
var n:word;
cs,k,s,a:byte;

begin
clrscr;
write('nhap n = ');readln(n);
while n<>0 do
begin
cs:=n mod 10;
n:=n div 10;
k:=k+1;
s:=s+cs;
if k=2 then a:=cs;
end;
writeln('so chu so cua n la ',k);
writeln('tong cac chu so cua n la ',s);
writeln('chu so cuoi cua n la ',n mod 10);
writeln('chu so dau tien cua n la ',cs);
writeln('chu so hang chuc cua n la ',a);
readln;
end.
avatar
tue96
Thành viên mới
Thành viên mới

Nam Ngày sinh : 25/02/1996
Tuổi : 21
Ngày đăng ký : 14/01/2011

Về Đầu Trang Go down

Re: giải giúp bài này

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết