Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- x,d,l:longint;
- begin
- readln (d);
- readln (l);
- x:=(d-1)*6+l;
- writeln (x);
- end.
- var a,b,n,a1,b1:longint;
- begin
- readln (a);
- readln (b);
- readln (n);
- b1:=b*n mod 100;
- a1:=a*n+b*n div 100;
- write (a1,' ',b1);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement