Advertisement
Guest User

Untitled

a guest
Jan 28th, 2015
172
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1. var
  2. x,d,l:longint;
  3. begin
  4. readln (d);
  5. readln (l);
  6. x:=(d-1)*6+l;
  7. writeln (x);
  8. end.
  9.  
  10. var a,b,n,a1,b1:longint;
  11. begin
  12. readln (a);
  13. readln (b);
  14. readln (n);
  15. b1:=b*n mod 100;
  16. a1:=a*n+b*n div 100;
  17. write (a1,' ',b1);
  18. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement