Определите, является ли не более чем четырехзначное число k симметричным (например, 1331 или 0550). на вход программе подается целое число k (0 k 9999). выдайте 1 при положительном ответе на вопрос и любое другое целое число — в противном случае.
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.
Большое немного решение, может можно и поменьше, но так точно правильно