Предмет: Информатика, автор: ЕленаОк

вычислить значение функции y=1/x-5 на отрезке от 1 до 10

Ответы

Автор ответа: sinbad7
0

В задаче не указан  шаг изменения x , допустим он равен 1

var

x,y:real;

begin

x:=1;

while x<=10 do

begin

y:=1/x-5;

writeln(y:8:2);

x:=x+1;

end;

end.

 

Похожие вопросы
Предмет: История, автор: ardanabulat59