Вычеслите значение функции 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
