Определить, через сколько суток масса гриба увеличится в К раз, если первоначально масса гриба составляла А? - 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.