Advertisement
Guest User

nomer 3

a guest
Feb 22nd, 2017
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 0.21 KB | None | 0 0
  1. :- initialization(main).
  2. main :- write('A='),
  3. read_integer(A),
  4. write('B='),
  5. read_integer(B),
  6. write('C='),
  7. read_integer(C),
  8. P is 2*(A+B), write(P),
  9. S is A*B, write(S),
  10. K is 4*C, write(K),
  11. F is C*C, write(F).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement