Помогите, пожалуйста)Надо написать программу вычисления по информатике (Х^2+1) , если

Помогите, пожалуйста)
Надо написать программу вычисления по информатике
(Х^2+1) , если хgt;0
По другому (Х^2-1)
Благодарю

Задать свой вопрос
1 ответ
Program n1;
var
x,S : integer;
begin
writeln('Введите X: ');
readln(x);
if xgt;0 then
S:=x*x+1
else
S:=x*x-1;
writeln('Ответ равен= ',S);
End.
Василий Тишура
Спасибо громадное
Арина
:*
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт