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

by huongtramy 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.

by **Admin** 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.

by tue96 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.

by Sponsored content

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

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

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

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

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