Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- uses crt;
- var i,S,dem,x,n:longint;
- phan_du,phan_nguyen:int64;
- A: array [1..1000] of integer;
- begin
- clrscr;
- write('Nhap vao mot so nguyen duong: '); readln(n);
- write('Nhap lai them mot lan nua :): '); readln(x);
- S:=0;i:=1;
- while n > 0 do
- begin
- phan_du:=n mod 10;
- phan_nguyen:=n div 10;
- n:=phan_nguyen;
- A[i]:=phan_du;
- dem:=dem+1;
- S:=S+A[i];
- i:=i+1;
- end;
- writeln('Tong cac chu so cua ',x,' la: ',S);
- writeln('So ',x,' co ',dem,' chu so');
- readln
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement