//Задача 2.28 Кучеренко
Begin
var y, x, a: real;
write('Vveldite a: ');
readln(a);
var i: integer;
for i := 1 to 10 do
begin
write('x[', i, '] = ');
readln(x);
if x = a then
y := a * exp(x * (-1)) + 2.5
else
y := exp(a - 1) + a * sqrt(x * x * x);
writeln('Y = ', y);
end;
end.
Comments
0 B
|👍
/👎
0 B
|👍
/👎