Advertisement
Guest User

Untitled

a guest
Jun 19th, 2019
56
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.50 KB | None | 0 0
  1. uses crt;
  2. var i,S,dem,x,n:longint;
  3. phan_du,phan_nguyen:int64;
  4. A: array [1..1000] of integer;
  5. begin
  6. clrscr;
  7. write('Nhap vao mot so nguyen duong: '); readln(n);
  8. write('Nhap lai them mot lan nua :): '); readln(x);
  9. S:=0;i:=1;
  10. while n > 0 do
  11. begin
  12. phan_du:=n mod 10;
  13. phan_nguyen:=n div 10;
  14. n:=phan_nguyen;
  15. A[i]:=phan_du;
  16. dem:=dem+1;
  17. S:=S+A[i];
  18. i:=i+1;
  19. end;
  20. writeln('Tong cac chu so cua ',x,' la: ',S);
  21. writeln('So ',x,' co ',dem,' chu so');
  22. readln
  23. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement