Дописать программу, не могу разобраться что же дальше.частично написала.желательно со скриншотом, потому что адаптировать под паскальнет все равно придется.

Эльмаз07 Эльмаз07    3   11.01.2020 19:33    1

Ответы
alina17anilaalina alina17anilaalina  11.10.2020 00:15

===== PascalABC.NET =====

begin

 var x := ReadReal;

 var (K, L) := (2.7, 3.0);

 var y, a: real;

 if x < 16 then

   y := L*x/(x+1)

 else

   y := K + 2*x;

 a:=1/(1-3*Sin(y)/(2-y/Ln(y*y)));

 Print('y =', y, '   a =', a)

end.


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