Advertisement
CyberN00b

5.2

Oct 22nd, 2020
227
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.14 KB | None | 0 0
  1. program prog;
  2. var
  3.    a, b, s : real;
  4.    i, j : longint;
  5. begin
  6.   Readln(a);
  7.   for i := 1 to 9 do
  8.     a := a * 0.01;
  9.   writeln(a);
  10. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement