Вычеслите значение функции U=x+1 на отрезке от 0 до 10 с шагом 0.3.
Вычеслите значение функции U=x+1 на отрезке от 0 до 10 с шагом 0.3.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы