Решить задачу. ** фабрику поступило a кг промытой шерсти, b% веса которой составляет...

Question

Решить задачу. На фабрику поступило a кг промытой шерсти, b% веса которой составляет вода. При сушке за каждый час испаряется 30% имеющейся влаги. Сколько процентов от веса шерсти будет составлять вода после 5 часов сушки?(pascal abc)

Answer 1

Ответ:

var a,b,i: integer;

var c: real;

begin

write('Введите, сколько кг промытой шерсти поступило',

' на фабрику: ');

readln(a);

write('Введите процент воды: ');

readln(b);

c:=a*(b/100); // Всего воды (в кг)

for i:=1 to 5 do

 begin

 c:=c*0.7;  

 end;

writeln('Вода составляет ',c/a,'% от веса шерсти',

' после 5 часов сушки');

end.