На паскале очень надо заранее

ответ:№1

var t1:real;//T супа

   t2:real;//T комнаты

   t3:real;//T необходимая

   i:integer;

begin

 i:=0;

 t1:=100;

 t2:=22;

 t3:=60;

 while(t1>=t3) do

 begin

   t1:=t1-(t1-t2)*0.1;

   i:=i+1;

 end;

 write('Кол-во минут - ',i);

end.    

Объяснение: