Определить, через сколько суток масса гриба увеличится в К раз, если первоначально масса гриба составляла А? - Pascal ABC
Формулировка задачи:
Гриб за сутки увеличивает свою массу на 40%. Через сколько суток масса гриба увеличится в К раз, если первоначально масса гриба составляла А?
Решение задачи: «Определить, через сколько суток масса гриба увеличится в К раз, если первоначально масса гриба составляла А?»
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.
Объяснение кода листинга программы
- 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д