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

#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

N = random.randrange(1,10000000)
print("N = ",N)
q = N
while q >= 1:
    r = q % 10
    print(r,end="; ")
    q = int(q/10)
									

program While17;
var
  N:Integer;
begin
  Write('Введите число N: ');
  Readln(N);
  while N>0 do
  begin
   Writeln(N mod 10);
   N:=N div 10;
  end;
end.