Question

Помогите пожалуйста (ИНФ 8 классы), я ничего не понимаю :(((
3. Написать программы в текстовом документе:
А) Дано целое число. Если оно является неотрицательным, то увеличить его
в 3 раза, а иначе прибавить к нему  15. Вывести полученное число.
Б) Вводится целое трехзначное число. Определить является ли оно
палиндромом (палиндром - число, буквосочетание, слово или текст,
одинаково читающееся в обоих направлениях), например, 121 – палиндром.
Т.е. задача сводится к проверке равенства первой и последней цифры числа.
Если цифры равны, то число является палиндромом, иначе это не палиндром.
Проверить программы в Паскале.

Answer 1

Ответ:

Program chisla;

Uses Crt;

Var a:integer;

Begin;

Writeln ('Введите любое целое число');

Readln a;

If a>0 then a:=a+1 else a:=a-2;

Writeln ('a=',a);

End

Объяснение:

Один из вариантов