ИГ
Игорь Глазунов
программирование в паскаль. найти все значения функции f:=x*x от (-10:10) с шагом 1..
program ou;
uses crt;
var f,x,i:integer;
begin
f:=0;
for i:=-10 to 10 do
begin
writeln('введите x');
readln(x);
f:=SQR(x)
end;
writeln('значение функции равно',f);
end.
что не верно?
нужно более понятней