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

[Roman1295]

Добрый день! Вот задача, мне надо решить. Но я понятия не имею, с чего начать и как сделать, чтобы программа начала высчитывать симметрично ли число или нет. В голове не могу представить программу и алгоритм её решения. С чего мне начать?

[BDA]

Нужно разбить число на цифры с помощью mod и div.
Потом остается сравнить цифры и выдать ответ.

[Roman1295]

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

Нужно разбить число на цифры с помощью mod и div.
Потом остается сравнить цифры и выдать ответ.

Понимаю, что надо разбивать на цифры с пом. мод и див, но не знаю, как это реализовать.

[Poma][a]

Симметрия числе это как? (Нет сарказма, просто не знаю) Это 1111, 1221 ?
Ладно, если я предположил правильно, то вот код :

var
        a, b, c, d, n : Integer;


begin
        ReadLn (n);
        a := n div 1000;
        d := n mod 10;
        WriteLn (a, ' ', d);

        b := (n div 100) mod 10;
        c := (n div 10) mod 10;
        WriteLn (b, ' ', c);

        if (a = d) and (b = c) then
                WriteLn ('YES')
        else
                WriteLn ('NO')
end.

Еще, если Вам нужны объяснения, то попробуйте, сначала, сами на бумажке, а потом уже к нам
Если можно использовать строку, то можно намного короче.
И так же в наше время развит поиск, (если я правильно понял смысл числовой симметрии, то она = палиндром), так что есть гугл, яндекс, да и на самом форуме поиск работает замечательно.
И Удачи, Тезка

[Roman1295]

Сообщение от Poma][a

Симметрия числе это как? (Нет сарказма, просто не знаю) Это 1111, 1221 ?

1234 симметрично 4321

[Poma][a]

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

1234 симметрично 4321

Не понял! Поясните пожалуйста....

[domovou]

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

1234 симметрично 4321

Это не симметрия а число на оборот.
А симметричные числа это 1221, 3223 ...

var a,b,c:integer;
begin
readln(a);
c:=a;
while c<>0 do begin
b:= b*10 + c mod 10;
c:=c div 10;
end;
if a=b then write('da')
else write('net');
end.

[Poma][a]

domovou, код на форуме нужно выделять тегом [CODE] (кнопочка с решеткой (#))

[gromdel]

А является ли симметрией 2323??

[Poma][a]

Нет. Отделите первые две цифры, переверните их, сравните с другими 2 цифрами, если равны, то они симметричны.