Ответы
Ответ дал:
0
var
a, b, x, y: real;
i, m: integer;
begin
Write('Введите через пробел m,x,a: ');
REadln(m, x, a);
b := 1;
for i := 1 to m do
begin
b := b * 5 * x;
end;
if b > -10 then y := a - b
else y := x * x + 3 * b;
Writeln('y=', y:0:5)
end.
a, b, x, y: real;
i, m: integer;
begin
Write('Введите через пробел m,x,a: ');
REadln(m, x, a);
b := 1;
for i := 1 to m do
begin
b := b * 5 * x;
end;
if b > -10 then y := a - b
else y := x * x + 3 * b;
Writeln('y=', y:0:5)
end.
Приложения:
![](https://st.uroker.com/files/08d/08d56c756105435c851aa96a1a9ce2f3.bmp)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад