Advertisement
EWTD

...5^2

Sep 18th, 2017
407
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.10 KB | None | 0 0
  1. program lol;
  2. var
  3. a: integer;
  4. begin
  5. readln(a);
  6. writeln(((a div 10)*((a div 10)+1)*100)+25)
  7. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement