Программка паскаль помогите пожалуйста за ранее буду благодарен

Программка паскаль помогите пожалуйста за ранее буду признателен

Задать свой вопрос
2 ответа
Var x: integer;
begin
readln (x);
if (xgt; 3) or (x lt;4) then write ((6 * x * x) -x);
if (x lt;3) or (xgt; 0) then write (sqrt (8 * x * x-4 * x) + exp (x));
if (x = 0) then write (x * x / 2-4x);
end.
Aleksandra Talakova
Запусти от x = 3.5
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программка не работает, обновите версию!

Begin
var x:= ReadReal('x =');
if (x gt; 3) and (x lt; 4) then Writeln('y = ', 6*x*x - sqrt(x*x));
if (x lt; 3) and (x lt;gt; 0) then Writeln('y = ',sqrt(8*x*x-4*x)+exp(x));
if (x = 0)then Writeln('y = ',0.5*x*x - 4*x );
if (x gt;= 4) then Writeln('No Solution');
end.
Гужагина Полинка
Поправил решение*
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт