Advertisement
klpc

Untitled

Jan 26th, 2020
88
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.16 KB | None | 0 0
  1. begin
  2. var a, b, c, d:integer;
  3. Read(a);
  4. b:= a mod 100 div 10;
  5. c:= a div 100;
  6. a:= a mod 100 mod 10;
  7. d:= a+b+c;
  8. a:=a*b*c;
  9. Write(d, a);
  10. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement