Поставить у правельную последовательность: Program Fynksija;
Var x, y: real;
else if (x>--10) and (x<- 10)
else y:32*x+1;
if x<-10
then y:3D 3*x*x*x - х*x
Writeln (y3D', y:4:2);End.
then y:3D sqrt(10-х)
Begin
Write('x=');
ReadLn(x);

Диа200426    3   04.04.2021 17:56    0