Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.