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

маша3057 маша3057    2   11.07.2019 19:00    0

Ответы
Лаймик0 Лаймик0  30.08.2020 15:53
Var x : Real;
Begin
  x:=0;
  While x<=10 do
  Begin
   Writeln('x = ',x:4,'      U = ',x+1:4);
   x:=x+0.3;
  end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика