Вычислить f (x)=1/x, x не равно 0, при x= -10,-9,...,10 с использованием оператора for

Question

Вычислить f (x)=1/x, x не равно 0, при x= -10,-9,...,10 с использованием оператора for

Answer 1

Var a,i,x:integer; f:real;begin for x:=-10 to 10 do begin if x <> 0 then   f:=1/x; writeln('f','(',x,')=',f:2:4); end; end.

Comments

var
a,i,x:integer;
f:real;
begin
for x:=-10 to 10 do
begin
if x <> 0 then
f:=1/x;
writeln('f','(',x,')=',f:2:4);
end;
end.