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

#include <stdio.h>
int main(void)
{
   float p;
   printf("P:");
   scanf ("%f", &p);
   int k=1;
   float d=10,s=10;
   while (s<=200) {
       ++k;
       d+=d*p/100;
       s+=d;
   }
   printf("K: %i\nS:%f\n",k,s);
   return 0;
}

import random

Daily = 10
Total = 200

P = random.randrange(1,51)
#P = 7
print('P = ', P)
coef = 1 + P/100
print("First Day = {0}, Percent = {1}, Coef = {2}".format(Daily,P,coef))
K = 1
S = Daily
while S < Total:
    Daily *= coef
    S += Daily
    K += 1
    print("K = {0}, Daily = {1}, S = {2}".format(K,Daily,S))

print()
print("Days = {0}, Summary = {1}".format(K,S))
									

program While16;  
var
  P, S, D:Real;
  K :Integer;
 
begin
  Write('Введите процент: ');
  Readln(P);
  K:=1;
  D:=10;
  S:=10;
  while S<=200 do
  begin
   inc(K,1);
   D:=D+D*P/100;
   S:=S+D;
  end;
  Writeln(K,' ',S);
end.