SHARE
TWEET

Untitled

a guest Feb 21st, 2020 85 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. begin
  2. writeln('Ââåäèòå öåëîå ÷èñëî ');
  3. read(c);
  4. b:=0;
  5. a:=c;
  6. while a<>0 do begin
  7. x:=a mod 10;
  8. a:= a div 10;
  9. b:=b+x;
  10. end;
  11. writeln('Ñóììà öèôð ÷èñëà ',c,' ðàâíà ',b);
  12. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top