Выяснить, является ли число палиндромом ( перевертышем ), с учетом четырех цифр

@ADAPTOR · Регистрация: 12.03.2010

Дано натуральное число n (n 9999). Выяснить, является ли оно палиндромом ( перевертышем ), с учетом четырех цифр, как, например, числа 7777, 8338, 0330 и т.п. (палиндромом называется число, десятичная запись которого читается одинаково слева направо и справа налево).

@rufukutu · 15.08.2017, 18:01

Pascal

 uses crt;
  var a,b,c,d,n:integer;
begin
  write('Введите натуральное четырехзначное число - ');
  readln(n);
  a:= n div 1000; {Первая цифра}
  b:=(n mod 1000)div 100;{Вторая цифра}
  c:= ((n mod 1000)mod 100)div 10;{Третья цирфа}
  d:= ((n mod 1000)mod 100)mod 10;  {Четвертая цифра}
    if (a=d) and (b=c)
    then writeln('Данное число является палидромом ', a,b,c,d)
    else writeln('Данное число не является палидромом.');
end.

@Constantin Cat · 15.08.2017, 18:23

Pascal

var
  a:integer;
function c(a,b:integer):integer;
  begin
    if b>0 then c:=c(a div 10,b-1)*10+a mod 10
      else c:=a;
  end;
begin
  write('Enter number:');
  readln(a);
  writeln(a=c(a,4));
end.

@bormant · 15.08.2017, 18:41

Pascal

var n: Integer;
begin
  Read(n); WriteLn((n mod 10=n div 1000 mod 10) and (n div 10 mod 10=n div 100 mod 10));
end.

@volvo · 15.08.2017, 19:25

Не по теме:

Лет через 7 надо будет не забыть еще раз в эту тему зайти. Вдруг еще ответы появятся...

@ADAPTOR 0 / 0 / 0 Регистрация: 12.03.2010 Сообщений: 27
		1
	Выяснить, является ли число палиндромом ( перевертышем ), с учетом четырех цифр 14.03.2010, 14:03. Просмотров 8258. Ответов 4 Метки нет (Все метки) Дано натуральное число n (n 9999). Выяснить, является ли оно палиндромом ( перевертышем ), с учетом четырех цифр, как, например, числа 7777, 8338, 0330 и т.п. (палиндромом называется число, десятичная запись которого читается одинаково слева направо и справа налево). 0

@volvo
	15.08.2017, 19:25 Выяснить, является ли число палиндромом ( перевертышем ), с учетом четырех цифр #5
	Не по теме: Лет через 7 надо будет не забыть еще раз в эту тему зайти. Вдруг еще ответы появятся... 1

Опции темы