Напечатайте таблицу значений функции y=1\x^2 при изменении х от — 10 до 10 с шагом 1

Question

Напечатайте таблицу значений функции y=1\x^2 при изменении х от — 10 до 10 с шагом 1

Answer 1

Program chik;
var y,x:real;
begin
x:=-11;
while x<10 do<br>begin
x:=x+1;
if(x<>0)then y:=1/(x*x) else y:=-1;
if(y<>-1)then writeln(y) else writeln('при x=0 нет решений');
end;
end.