<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2;
var p:=(x>-4) and (x<5) and (y>-3) and (y<0) or
(y>0) and (y<4) and (Abs(x)<2);
if p then Writeln('Принадлежит')
else Writeln('Не принадлежит')
end.
3 потому что правило в русской литературе такое
Первым, очевидно, постановка задачи.
Проведение расчетов.
Далее построение математической модели.
Разработка алгоритма.
Программирование.
Отладка программы.
Анализ результатов.
A = int(input("b = "))
if a//100 == a\%10: print("Число симметрично")
else: print ("Число не симметрично")
Пример:
<span>b = 525
Число симметрично</span>
Минимальное основание 10, потому что там "9", а девятка это максимум среди чисел. (0,1,2,3,4,5,6,7,8,9.)