Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- begin
- var a, b, c, d:integer;
- Read(a);
- b:= a mod 100 div 10;
- c:= a div 100;
- a:= a mod 100 mod 10;
- d:= a+b+c;
- a:=a*b*c;
- Write(d, a);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement