Ввести четырехзначное число. Определить симметрично ли оно. (Pascal)

[TinMan]

writeln((a div 1000 = a mod 10) and (a div 100 mod 10 = a div 10 mod 10));

[Sciv]

Дано: c - четырехзначное целое число

Найти: симметрично ли с?

решение:

c1:=abs(c); {это чтоб учесть ввод отрицательного числа и превратить в положительное}

if (c1 div 100)=(c1 mod 10 *10+c1 mod 100 div 10) then
{Число симметричное}
else
{Число ни разу не симметричное}

Примерно так?

[Poma][a]

writeln((a div 1000 = a mod 10) and (a div 100 mod 10 = a div 10 mod 10));

Оо, а комментарии можно? пожалуйста.

P.S. TinMan, Вы тоже вернулись. Ура, Ура, Ура!

[BDA]

Poma][a, тут все просто:
a div 1000 - самый старший разряд
a mod 10 - самый младший разряд
a div 100 mod 10 - 2 разряд слева
a div 10 mod 10 - 2 разряд справа
Затем сравниваем первую и последнюю цифры - получаем некоторое булево значение.
Также поступаем с 2 оставшимися цифрами.
Эти значения одновременно должны быть истинными.

[Poma][a]

BDA, огромное спасибо!
Просто вопрос был про "and", в развилке и цикле - использую, но в WriteLn'е..
Тоесть результатом ? (Прошу прощения, но я в дали от вычислительной единицы.)

BDA, увы, но параноидальная шарманка не дает поставить +...

Добрался, и да ответ будет TRUE или FALSE.
Еще раз спасибо TinMan (за чертовски мудрено-простое решение) и BDA(за разъяснения).

[Erza]

помогите пожалуйста эту же задачу решить без условных операторов и операторных циклов,используя только операции целочисленной арифметики

[Mad_Cat]

дык

Сообщение от TinMan

writeln((a div 1000 = a mod 10) and (a div 100 mod 10 = a div 10 mod 10));

и решено без условных операторов и циклов

[Erza]

Сообщение от Mad_Cat

дык

и решено без условных операторов и циклов

ох,прошу извинить,я нуб ещё)задача чуточку другая.если введённое число симметрично,то вывести 1,иначе-любое другое число/слово.
с таким условием и без if это сломайся мой мозг)

[BDA]

Попробуйте

writeln(ord((a div 1000 = a mod 10) and (a div 100 mod 10 = a div 10 mod 10)));

[TinMan]

  writeln(Sqr(n div 1000 - n mod 10) + Sqr(n div 100 mod 10 - n div 10 mod 10) +1)