4. Фигураны құрудың дұрыс ретін анықтаңыз.
​

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.

смотря какую.у меня друг делал презинтацию на конкурс совёно он распрашивал всех на каком море кому нравиться потом сделал анкету типо :

на красном море допустим 45%

на чёрном море 15%

ну и т.д. 

954-459=495

100a+10b+c-100c-10b-a=99a-99c=99(a-c)

найдем все трехзначные что делятся на 99

198297396495594693792891990

и проверяем каждое

1)212= 1+1=2*2=4+1=5 (3 действия)

2)2211121=1+1=2+1=3*2=6*2=12*2=24+1=25*2=50  (7 действий)

3)221111212=1+1=2+1=3*2=6*2=12*2=24*2=48+1=49*2=98+1=99  (9 действий)