и 3 сделать вот применый код второго program z1;
var x,y: real;
begin
x := -2;
while x <= 2 do
begin
writeln('x = ',x:4:1,'y= ',2*x/3:0:3);
x:=x+1
end
end.

epstalmakov    3   28.11.2020 21:04    0