Var a:integer; begin readln(a); If (a<10000) and (a>=0) then If (a>999) then If ((a div 1000)=(a mod 10)) and ((a div 10 mod 10)=(a div 100 mod 10)) then writeln('1') else writeln('2') else If (a>99) and (a<1000) then If ((a div 100)=(a mod 10)) then writeln('1') else writeln('2') else If (a>9) and (a<100) then If ((a div 10)=(a mod 10)) then writeln('1') else writeln('2') else writeln('1') else writeln('Неправльное число'); end. Большое немного решение, может можно и поменьше, но так точно правильно
Жил был компьютер все жили согласовано никто из них не ставил себя выше другого они даже не думали о таком.А один раз на уроке информатики тема урока котороя была устроийства, и манитор, клавиатура,жесткий диск и процессор услышали как учительица (имя вашего учитиля) задала вопрос - дети кто знает какой самое главаное у стройство. И в компютаре начелся бунт манитор, клавиатура,жесткий диск и процессор начели гудеть друг на друга решая кто главнее,даже остальние устройства пришли посмотреть что за гудение находится в ихнем компьютаре и увидев что бунт начели манитор, клавиатура,жесткий диск и процесор начели успокаевать и как токо они успакоелись манитор, клавиатура,жесткий диск и процесор услышали как учитель дал ответ на вопрос - дети все утроиства компьютера крейне важны представте как бы мы смотрели что происходит на компютаре без манитора (моитор гордо улибнулся -а без клавиатуры компьютер не знал что эму писать (клавиатура тоже гордо улибнулась ) -а без процесара компьютер вобщебе не включался(процесор тоже гордо улыбнулся) -а без жосткого диска мы бы е чего не смогли установить и так можно долго говорить но на етом наш урок закончен дасвидание дети(жосткий диск посмотрел на все устроийства и улибнулся зная что все мы устройства важны и больше не одно устройство не возобновила себя важнее чем оно есть
a:integer;
begin
readln(a);
If (a<10000) and (a>=0) then
If (a>999) then
If ((a div 1000)=(a mod 10)) and ((a div 10 mod 10)=(a div 100 mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>99) and (a<1000) then
If ((a div 100)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>9) and (a<100) then
If ((a div 10)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
writeln('1')
else
writeln('Неправльное число');
end.
Большое немного решение, может можно и поменьше, но так точно правильно