Вычеслите значение функции U=x+1 ** отрезке от 0 до 10 с шагом 0.3.

Question

Вычеслите значение функции U=x+1 на отрезке от 0 до 10 с шагом 0.3.

Answer 1

Var x : Real;
Begin
  x:=0;
  While x<=10 do<br>  Begin
   Writeln('x = ',x:4,'      U = ',x+1:4);
   x:=x+0.3;
  end;
end.