Помогите решить плиз....

Помогите решить плиз....

Задать свой вопрос
Лидия
огромное количество однотипных образцов. язык явно хоть какой
2 ответа
Var
   x:real;
Begin
X:=0;
Repeat
WriteLn('Z(',x,') = ',Sqrt(4*x*x+1));
x:=x+0.2
Until x gt; 2.4;
End.
Const
    x0 = 0;
    xk = 2.4;
    dx = 0.2;

var
    x: real;

begin
    x := x0;
    repeat
        WriteLn('Z(', x, ') = ', Sqrt(4 * x * x + 1));
        x := x + dx
    until x gt; xk;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт