giải giúp bài này
3 posters
Trang 1 trong tổng số 1 trang
giải giúp bài này
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.
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.
huongtramy- Thành viên mới
- Ngày sinh : 17/05/1978
Tuổi : 45
Ngày đăng ký : 06/01/2011
Re: giải giúp bài này
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.
Re: giải giúp bài này
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.
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.
tue96- Thành viên mới
- Ngày sinh : 25/02/1996
Tuổi : 28
Ngày đăng ký : 14/01/2011
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
|
|
15/4/2011, 10:34 pm by funny
» Mọi người làm giúp tôi bài này với !
13/4/2011, 11:42 am by phonggia
» Giúp mình giải bài này với
12/4/2011, 1:00 pm by ldt
» Chia se 1 bai paccal ve ve do thi
11/4/2011, 1:55 pm by duy_sau_rom
» đồ hoạ trong pascal
9/4/2011, 9:16 pm by jetlongk4
» Giá trị biểu thức bằng kí pháp nghịch đảo
1/4/2011, 8:49 am by kh1132000
» AI GIẢI GIÚP EM BÀI NÀY VỚi , ĐANG CẦN GẤP GẤP LẮM :(
31/3/2011, 11:47 pm by jancancook
» dòng thời gian
31/3/2011, 11:31 am by gianggiangonline
» anh nào giúp em với
30/3/2011, 11:00 pm by sieuhoatinh
» VTC trả lương 10 triệu cho SV tốt nghiệp ĐH Văn Hiến - khoa CNTT - ĐTVT tại Hà Nội
29/3/2011, 2:48 pm by SV_tuonglai
» Download cẩm nang mùa thi 2011 tại đây
29/3/2011, 2:47 pm by SV_tuonglai
» Check giúp mình lỗi trong code này với !
27/3/2011, 10:07 pm by mamap0511
» Tai nghe sony dr 370 ve hang moi
25/3/2011, 8:42 pm by hs_bin
» giúp em với
25/3/2011, 12:11 pm by nbni
» Headphone sony dr 370 moi ve hang
24/3/2011, 9:13 pm by hs_bin
» GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
24/3/2011, 9:11 pm by tuan045610
» Headphone sony DR 370 moi ve hang
21/3/2011, 8:11 pm by hs_bin
» Sony DR 310 moi ve hang
20/3/2011, 9:34 pm by hs_bin
» Mọi người giúp dùm em!!^^
20/3/2011, 9:53 am by trangbui_thcstanhiep
» bài tập về hàm trog pascal
18/3/2011, 10:34 pm by sieuhoatinh