прирастить число x на 10,если оно положительное,во всех других случаях уменьшить

Прирастить число x на 10,если оно положительное,во всех других случаях уменьшить его на 10

Задать свой вопрос
Танюха Посиканова
на паскале надобно сделать прогу?
1 ответ
//Pascal
var
  a: integer;
begin
  readln(a);
  if a gt; 0 then a := a + 10
  else
    a := a - 10;
  writeln(a);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт