решите что-нибудь из этого на паскале заранее

Настенька192002 Настенька192002    2   09.04.2020 11:39    0

Ответы
anaraermus anaraermus  12.10.2020 23:42

// PascalABC.NET

begin

 var (СупВначале, Комната, СупПодать) := (100, 22, 60);

 var (Суп, Время) := (real(СупВначале), 0);

 repeat

   Время += 1;

   Суп -= 0.1 * (Суп - Комната)

 until Суп <= СупПодать;

 Print(Время)

end.


решите что-нибудь из этого на паскале заранее
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика