Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/40: Рейтинг темы: голосов - 40, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 12.03.2010
Сообщений: 27
1

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

14.03.2010, 14:03. Просмотров 8258. Ответов 4
Метки нет (Все метки)


Дано натуральное число n (n 9999). Выяснить, является ли оно палиндромом ( перевертышем ), с учетом четырех цифр, как, например, числа 7777, 8338, 0330 и т.п. (палиндромом называется число, десятичная запись которого читается одинаково слева направо и справа налево).
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.03.2010, 14:03
Ответы с готовыми решениями:

Разветвляющийся алгоритм: является ли число палиндромом (перевертышем) с учетом четырех цифр?
Доброго времени суток! Нужна помощь с решением задачи, ибо я вообще не догоняю, как решать эту...

Определить, является ли число перевертышем с учетом четырех цифр
Здравствуйте уважаемые форумчане! Помогите пожалуйста решить в VBA. Дано натуральное число N...

Выяснить, является ли число палиндромом ("перевертышем")
Дано натуральное число N. Выяснить, является ли оно палиндромом ("перевертышем"), т.е. числом,...

Выяснить, является ли данное слово палиндромом(перевертышем)
Даны три слова. Выяснить, является ли оно палиндромом(перевертышем), т.е таким, которое одинаково...

4
1 / 1 / 0
Регистрация: 15.08.2017
Сообщений: 6
15.08.2017, 18:01 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
 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.
0
3175 / 1751 / 468
Регистрация: 28.02.2015
Сообщений: 3,561
15.08.2017, 18:23 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
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.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5695 / 3410 / 2430
Регистрация: 22.11.2013
Сообщений: 9,566
Записей в блоге: 1
15.08.2017, 18:41 4
Pascal
1
2
3
4
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.
0
volvo
15.08.2017, 19:25     Выяснить, является ли число палиндромом ( перевертышем ), с учетом четырех цифр
  #5

Не по теме:

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

1
15.08.2017, 19:25
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.08.2017, 19:25
Привет! Вот еще темы с ответами:

Выяснить является ли хоть одно из данных чисел палиндромом(перевёртышем)
Даны 2 натуральных числа выяснить является ли хоть одно из них палиндромом(перевёртышем) тоесть...

Даны 2 натуральных числа выяснить является ли хоть одно из них палиндромом (перевёртышем)
Даны 2 натуральных числа выяснить является ли хоть одно из них палиндромом(перевёртышем) тоесть...

Проверить, является ли данное число палиндромом(перевертышем)
Задача 5/7: Дано целое четырехзначное число. Проверить, является ли данное число...

Проверьте, является ли данное число палиндромом (перевертышем)
Дано натуральное n-значное число P. Проверьте, является ли данное число палиндромом...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.