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

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

import random

S_start = 1000
S_end = 1100

P = random.randrange(10,260)/10
#P = 7
print('P = ', P)
coef = 1 + P/100
print("Initial Amount = {0}, Percent = {1}, Coef = {2}".format(S_start,P,coef))
K = 0
S = S_start
while S < S_end:
    S *= coef
    K += 1
    print("K = {0}, S = {1}".format(K,S))

print()
print("Months = {0}, Final Amount = {1}".format(K,S))
									

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