Палиндром

@Petro29 · Регистрация: 30.04.2016

Author24 — интернет-сервис помощи студентам

Ввести четырёхзначное целое число и определить,
является ли оно "палиндромом" или "перевёртышем" (такими, например, являются числа 6666 и 3223).
(Подсказка: для выделения отдельных разрядов числа используются операции div и mod)

Pascal

uses Crt;
var A, B, C, D, i: integer;
begin
ClrScr;
writeln(' Ввести число из 4-х цифр: ');
    for i:= 1 to 3 do begin
       readln(A, B, C, D);
if (A = B) and (B = C) And (C = D) and (D = A) then
writeln (' Введённые цифры – палиандром')
      else
if (A = D) and (B = C) then
writeln (' Введённые цифры – перевёртыш')
      else
write (' Это 4-хзначное число');
     end;
  readln
end.

На выходе имеем:

Pascal

 Ввести число из 4-х цифр:
7  7  7  7
    Введённые цифры – палиандром
4  5  5  4
    Введённые цифры – перевёртыш
5  6  8  7
     Это 4-хзначное число

1. Правильно ли я изобразил "Полиандром" и "Перевёртыш"?
2. Что это за подсказка про "разряды чисел" с использованием
div и mod? И как же их использовать?
Вот ваш ответ:

Pascal

uses Crt;
var a: integer;
begin
ClrScr;
   Read(a);
 writeln((a div 1000 mod 10=a mod 10) and (a div 100 mod  10=a  div 10 mod  10))
  readln
end.

Программа запустилась и пусто. Что дальше? Ввёл строку для ввода
числа "а", а какое это "а" : 10, 100 или 1000 или любое другое число.
Короче программа ничего не приняла.

@Puporev · 30.09.2018, 11:02

Petro29, Извините за нескромный вопрос. А Вам сколько лет? Просто надоело отвечать на Ваши тупые вопросы.

@vlados124 · 30.09.2018, 22:18

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

Pascal

program palindrom;
var 
     a,i:integer;
     s1,s2:string;
begin
        read(a);
        str(a,s1);
        s2:='';
        for i:=length(s1) downto 1 do s2:=s2+s1[i];
        if s1=s2 then write('YES') else write('NO'); 
end.

@Petro29 · 20.01.2019, 21:52 **[ТС]**

Ввести четырёхзначное целое число и
определить, является ли оно "палиандромом" или "перевёр-
тышем" (такими, например, являются числа 6666 и 3223).
(Подсказка: для выделения отдельных разрядов числа исполь-
зуются операции div и mod)

Pascal

uses Crt;
var A, B, C, D, i: integer;
begin
ClrScr;
writeln(' Ввести число из 4-х цифр: ');
    for i:= 1 to 3 do begin
       readln(A, B, C, D);
if (A = B) and (B = C) And (C = D) and (D = A) then
writeln (' Введённые цифры – палиандром')
      else
if (A = D) and (B = C) then
writeln (' Введённые цифры – перевёртыш')
      else
write (' Это 4-хзначное число');
     end;
  readln
end.

На выходе имеем:

Pascal

 Ввести число из 4-х цифр:
7  7  7  7
    Введённые цифры – палиандром
4  5  5  4
    Введённые цифры – перевёртыш
5  6  8  7
     Это 4-хзначное число

И вот такие вопросы:
1. Правильно ли я изобразил "Полиандром" и "Перевёртыш"?
2. Что это за подсказка про "разряды", div и mod? И как их использовать?
Ваш ответ на это Обращение :

Pascal

uses Crt;
var a: integer;
begin
ClrScr;
   Read(a);
 writeln((a div 1000 mod 10=a mod 10) and (a div 100 mod  10=a div 10 mod 10));
  readln
end.

Программа запустилась и пусто. Что дальше? Ввёл строку для ввода
числа "а", а какое это "а": 10 или 100 или 1000 или любое другое число.
Программа ничего не приняла.
И что это за программа – такой длинный ряд div и mod.
И всё-таки, как получить нужный результат. И что за подсказка
такая про div и mod.

@Puporev · 21.01.2019, 08:43

Во первых научитесь читать условие, нужно ввести 4х значное число, а не 4 цифры.
И немного повысьте свою грамотность, палиндром, а не полиандром, это тоже что и перевертыш.

Pascal

uses Crt;
var A,i:integer;
begin
ClrScr;
repeat
writeln(' Ввести число из 4-х цифр: ');
readln(A);
until (A>999)and(A<=9999);
if (A div 1000=A mod 10) and (A div 100 mod 10=A div 10 mod 10)then
writeln (' Введённое число – палиндром')
else writeln (' Введённые число – не палиндром');
readln
end.

@bormant · 21.01.2019, 20:59

Можно решать более общую задачу, сняв ограничение на 4 цифры числа:

Pascal

1
2
3

ReadLn(n); t:=n;
repeat m:=m*10+t mod 10; t:=t div 10; until t=0;
WriteLn(n=m);

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	30.09.2018, 11:02	2
	Petro29, Извините за нескромный вопрос. А Вам сколько лет? Просто надоело отвечать на Ваши тупые вопросы. 0

	21.01.2019, 20:59