50 ! спортсмен в первый день пробежал 10 км. каждый следующий день он увеличивает дневную норму на 10% сделайте в vb

Dim days as double  dim percent as double  dim basekm as double  dim result as double  days = 7  percent = 10  basekm = 10  result = basekm  for i = 1 to days  result += (result * percent) / 100  next  print(result)

program xxx;

  var i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.

 

составим двоичную матрицу:

                        молоко       лимонад         квас                   вода

бутылка               0                   1                 0                     0

стакан                 0                   0                 0                     1

кувшин                 1                   0                 0                     0        

банка                   0                   0                 1                     0

 

в кувшине - молоко

в бутылке - лимонад

в банке - квас

в стакане - вода