//2.30
Begin
var a, d, b, c, y, x:real;
var i:integer;
write('Vvedite a: ');
readln(a);
write('Vvedite d: ');
readln(d);
write('Vvedite b: ');
readln(b);
write('Vvedite c: ');
readln(c);
for i := 1 to 8 do
begin
write('Vvedite x[', i, ']: ');
readln(x);
if x < (a-1) then
y := a/x + d*x*x - c
else
y := (a+b)/(x-1);
writeln('y[',i,']=',y:3:2);6
end;
End.
Comments
0 B
|👍
/👎
0 B
|👍
/👎