Ответ:
program noname;
var x,y :real;
begin
x:=-3;
While (x <= 3) do
Begin
if (x <> 0) then
y:=y+x-1;
Writeln(x:4:1, ' ',y:4:1);
End;
x:=x+0.1;
Readln;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
program noname;
var x,y :real;
begin
x:=-3;
While (x <= 3) do
Begin
if (x <> 0) then
Begin
y:=y+x-1;
Writeln(x:4:1, ' ',y:4:1);
End;
x:=x+0.1;
End;
Readln;
end.