СРОЧНО ПАСКАЛЬ 8 ВАРИАНТ!!!!

Приложения:

Ответы

Ответ дал: Beaver4000
0

program abc;

var y,x:real;

begin

readln(x);

if x<0 then  

y:=sqr(x)

else

y:=(cos(x)/sin(x)) * (cos(x)/sin(x));

writeln(y);

end.

Ответ дал: apost1928
0
пишет ввод данных
Ответ дал: Beaver4000
0
Не понял
Ответ дал: apost1928
0
а лан не суть
Ответ дал: apost1928
0
мне другое надо сделать помоги
Похожие вопросы