Определить, через сколько суток масса гриба увеличится в К раз, если первоначально масса гриба составляла А? - Pascal ABC

Формулировка задачи:

Гриб за сутки увеличивает свою массу на 40%. Через сколько суток масса гриба увеличится в К раз, если первоначально масса гриба составляла А?

Код к задаче: «Определить, через сколько суток масса гриба увеличится в К раз, если первоначально масса гриба составляла А? - Pascal ABC»

textual
var m, A, K : real;
 n : integer;
begin
  repeat
    WriteLn('Введите массу гриба A и во сколько раз должна вырасти масса K');
    ReadLn(A, K);
  until (A>0) and (K>1);
  m:=A;
  n:=0;
  while m<A*K do 
  begin
    inc(n);
    m:=m*1.4;
  end;
 Writeln(' через ',n,' суток  масса станет ',m:0:4)
end.

6   голосов, оценка 3.667 из 5


СОХРАНИТЬ ССЫЛКУ