Advertisement
maxlarin2

Dayana2

Dec 1st, 2012
313
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.13 KB | None | 0 0
  1. var
  2.   n,k: integer;
  3.  
  4. begin
  5.   readln(N);
  6.   k := n;
  7.   while K * K >= N do
  8.   begin
  9.     dec(k);
  10.   end;
  11.   writeln(K);
  12. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement