найти все симметричные четырехзначные числа , например 7667, 1331

[V I K T O R I Y A]

найти все симметричные четырехзначные числа , например 7667, 1331
Напишите пожалуйста программу ...

[Sazary]

А сами почему не можете? Лень разбираться?
В чем проблема? Что непонятно?

Перебираете в цикле все 4-х-значные числа. Каждое число разбиваете на цифры и смотрите.

[Disel]

Вот мой вариант, наверно можно проще написать, но у меня только так получилось.

Program perebor;
uses crt;
var a: array[1..4] of integer;
    i,j,m,n:integer;

BEGIN
 clrscr;
  for i:=0 to 9 do
   begin
    a[4]:=i;
     for j:=1 to 9 do
      begin
      a[3]:=j;
       for m:=1 to 9 do
        begin
        a[2]:=m;
         for n:=1 to 9 do
          begin
          a[1]:=n;
              if (a[1]=a[4]) and (a[2]=a[3]) then
               writeln(a[1],a[2],a[3],a[4]);
          end;
        end;
      end;
   end;

 ReadKey;
END.

[Sazary]

Disel, тогда можно упростить )

Program perebor;
uses crt;
var
i,j,m,n:integer;

BEGIN
 clrscr;
  for i:=0 to 9 do
     for j:=1 to 9 do
       for m:=1 to 9 do
         for n:=1 to 9 do
           if (n=i) and (m=j) then
             writeln(i,j,m,n);
 ReadKey;
END.

[Disel]

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

Disel, тогда можно упростить )

Program perebor;
uses crt;
var
i,j,m,n:integer;

BEGIN
 clrscr;
  for i:=0 to 9 do
     for j:=1 to 9 do
       for m:=1 to 9 do
         for n:=1 to 9 do
           if (n=i) and (m=j) then
             writeln(i,j,m,n);
 ReadKey;
END.

Спасибо, не подумал. Тепер буду знать.

[Serge_Bliznykov]

только в данном коде есть одна ошибочка и одна небрежность.
Небрежность:
цикл по i крутим от 0 ( for i:=0 to 9 do), а по n от единицы (for n:=1 to 9 do)
а потом сравниваем if (n=i)
неаккуратненько...

а ошибка в том, что внутренним элементам надо крутить цикл от нуля! иначе числа вроде 1001 в Вашем случае не считаются симметричными.

И ещё. мне кажется, что составители задачи предполагали, что решением будет что-то вроде такого:

for Num :=1111 to 9999 do
   if <проверка Num на симметричность> then WriteLn(Num);

а если уж развить идею с циклом по отдельным числам, то вообще можно обойтись без проверки. вот целиком решение:

  for i:=1 to 9 do
     for j:=0 to 9 do
       writeln(i,j,j,i);

[Sazary]

Serge_Bliznykov, да, действительно, не заметил )

вот целиком решение:

Коротко и практично )