var n,a,b,c,d:integer; begin write('n = '); readln(n); a:=n div 1000; b:=n div 100 mod 10; c:=n mod 100 div 10; d:=n mod 10; if a*10 b=d*10 c then writeln('Число - палиндром') else writeln('Число - не палиндром'); if (a<>b)and(a<>c)and(a<>d)and(b<>c)and(b<>d)and(c<>d) then writeln('В числе все цифры различны') else writeln('В числе есть одинаковые цифры'); end.
Пример: n = 1315 Число - не палиндром В числе есть одинаковые цифры
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
