Решение задачи While 14

#include <stdio.h>
int main(void)
{
   float a;
   printf("A:");
   scanf ("%f", &a);
   int k=0;
   float temp=0;
   while (temp<=a) {
       ++k;
       temp+=1/(float)k;
   }
   printf("K: %i\nSum:%f\n",k-1,temp-1/(float)k);
   return 0;
}

import random

A = random.randrange(2,10)
A = 7
print('A = ', A)

K = 1.0
S = 1.0
while S+1/(K+1) < A:
    K += 1
    x = 1/K
    S += x
    print("K = {0}, 1/K = {1}, S = {2}".format(K,x,S))

print()
print("K = {0}, S = {1}".format(K,S))
print("K+1 = {0}, S_next = {1}".format(K+1,S+1/(K+1)))
									

program While14;
var
  Temp:Real;
  A,K :Integer;
begin
  Write('Введите A: ');
  Readln(A);
  K:=0;
  Temp:=0;
  while Temp<=A do
  begin
   inc(K,1);
   Temp:=Temp+1/K;
  end;
  Writeln(K-1,' ',Temp-1/K);
end.