Помогите срочно решить задачку по информатике, паскаль

Помогите срочно решить задачку по информатике, паскаль

Задать свой вопрос
1 ответ

program raf105;

var a,b,c:integer;

begin

write('Введите 3 числа через пробел: ');

readln(a,b,c);

if a gt;0  

then a:=a+10

else a:=a-10;

if b gt;0  

then b:=b+10

else b:=b-10;

if c gt;0  

then c:=c+10

else c:=c-10;

write('Вывод: ',a,', ',b,', ',c);

end.

Написано на языке  PascalABC.NET

Костик
Извините, я не могу для вас посодействовать
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт