Написать программу, растолкуйте. Ввести двухзначное число. Если сумма цифр числа четная,

Написать программку, растолкуйте.
Ввести двухзначное число. Если сумма цифр числа четная, то прирастить число на 2, в неприятном случае уменьшит на 2.

Задать свой вопрос
1 ответ
var a: integer;
begin
    write('Введите число: ');
    read(a);
    if odd(a mod 10 + a div 10) then a := a - 2
                                               else a := a + 2;
    write(a)
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт