Я напишу программу для решения на паскале:
1)
Var
x : Real;
y: Real;
Begin
Write('Vvedite x:'); Readln(x);
y := 1 - 2*x + 5*x;
Writeln('y = ', y);
Readln();
End.
2)
y: array [1..7] of real;
y[1] := x;
y[2] := x*10;
y[3] := x*15;
y[4] := x*19;
Writeln('y1 = ', y[1]);
Writeln('y2 = ', y[2]);
Writeln('y3 = ', y[3]);
Writeln('y4 = ', y[4]);
Объяснение:
Я смог
Я напишу программу для решения на паскале:
1)
Var
x : Real;
y: Real;
Begin
Write('Vvedite x:'); Readln(x);
y := 1 - 2*x + 5*x;
Writeln('y = ', y);
Readln();
End.
2)
Var
x : Real;
y: array [1..7] of real;
Begin
Write('Vvedite x:'); Readln(x);
y[1] := x;
y[2] := x*10;
y[3] := x*15;
y[4] := x*19;
Writeln('y1 = ', y[1]);
Writeln('y2 = ', y[2]);
Writeln('y3 = ', y[3]);
Writeln('y4 = ', y[4]);
Readln();
End.
Объяснение:
Я смог