Question

Pascal. Протабулировать функцию: y=x^2 на отрезке [-10;10] с шагом 1

Answer 1

program table;

var

   x: integer;

begin

   for x := -10 to 10 do

       writeln('x=', x, ' y=', x * x);

end.