为什么一样的程序60分？求大神找错

害我用pascal写了一遍过了。。。

program cc;
 var
 n,k,i:longint;
 x,p:real;
 begin
 readln(k);
 x:=0;
 i:=0;
 while x<=k do
 begin
 inc(i);
 x:=x+1/i;
 end;
 writeln(i);
 end.

以上100分

#include<iostream>
#include<stdlib.h> 
using namespace std;
int main()
{
    int i,k;
    float x;
    x=0;
    i=0;
    cin>>k;
    while (x<=k)
    {
          i++;
          x+=1.0/i;
          }
          cout<<i;
    return 0;
}

以上60分 求神犇。。。