Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program syr;
- uses sysutils;
- type desat=0..10000;
- percento=0..100;
- var n:desat;
- k:percento;
- x:double;
- begin
- readln(n,k);
- x:=(n*k)/(100-k);
- writeln(n+x:0:8);
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement