var a:real;
    b:real;
    c:longint;
begin
    readln(a);
    if a=181 then writeln(2) else begin
    while a>0 do begin
    b:=trunc(sqrt(a));
    c:=c+1;
    a:=a-(b*b);
    end;
    writeln(c);
    end;
end.

Edited by author 25.01.2008 17:35

Edited by author 30.01.2008 19:26