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

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 : 40
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 : 26
Ngày đăng ký : 25/04/2008

http://diendanpascal.forumvi.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 : 22
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

Về Đầu Trang


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