Question

Нужно составить алгоритм.
В магазин привезли товар,цена которого х рублей. Каждый месяц инфляция в размере 1% увеличивала цену товара на сумму инфляции. На какой по счету месяц
цена товара увеличится в 1.5 раза.

Answer 1

Program P1;
var x,y:real; k:integer;
begin
  write('Цена товара = '); readln(x);
  y:=x; k:=0;
  while y<1.5*x do
 begin
   y:=y*1.01;
   k:=k+1;
   end;
  writeln('k = ',k);
end.