Дан изначальный код ** паскале Program abc; var x,y:real; i: integer; begin x:=2; for i:=...

Question

Дан изначальный код на паскале
Program abc;
var
x,y:real;
i: integer;
begin
x:=2;
for i:= 2 to 8 do
begin
y:=(1-x)+2.5*(x*x*x)+(x*x*x*x);
writeln ('x ='+x);
writeln ('y='+y);
x:=x+1.5;
end
end.
заппишите значения x и y в 2 строчки и чтобы сначала шли целые значения а потом дробный

Answer 1

Var
x,y:real;
i: integer;
a,b:array [2..8] of real;
begin
x:=2;
for i:= 2 to 8 do begin
y:=(1-x)+2.5*(x*x*x)+(x*x*x*x);
a[i]:=a[i]+x;
b[i]:=b[i]+y;
x:=x+1.5;
end;
write('x ');
for i:= 2 to 8 do
write(a[i],' ');
writeln('');
write('y ');
for i:= 2 to 8 do
write(b[i],' ');
end.