var x,y:real;
begin
x:=-1;
writeln('X':2,'Y':6);
while x<=9 do
y:=1.6-x*x/2 ;
writeln(x:3:1,y:6:1);
x:=x+0.7
end
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var x,y:real;
begin
x:=-1;
writeln('X':2,'Y':6);
while x<=9 do
begin
y:=1.6-x*x/2 ;
writeln(x:3:1,y:6:1);
x:=x+0.7
end
end.