1 / 1 / 0
Регистрация: 17.11.2009
Сообщений: 30
1

Найти все симметричные натуральные четырёхзначные числа.

22.02.2010, 23:36. Показов 2804. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Найти все симметричные натуральные четырёхзначные числа. Например 4554, 2222!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.02.2010, 23:36
Ответы с готовыми решениями:

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

Найти все симметричные натуральные числа из промежутка от A до B
Найти все симметричные натуральные числа из промежутка от A до B ( А и B вводятся с клавиатуры)

Получить все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр
2. Получить все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр

Вывести на экран все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр
Получить все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр ...

2
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
22.02.2010, 23:56 2
Лучший ответ Сообщение было отмечено Danger Dominik как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function Pal(s : string) : boolean;
begin
  Pal := s[1] = s[Length(s)];
  if (s[1] = s[Length(s)]) and (ord(s[0])>2) then
    Pal := Pal(Copy(s, 2, Length(s)-2))
end;
var
  temp : string;
  i: integer;
begin
  for i := 1000 to 9999 do
  begin
    Str(i,temp);
    if Pal(temp) then
      Write(temp,' ')
  end;
  ReadLn
end.
0
Эксперт С++
7175 / 3234 / 81
Регистрация: 17.06.2009
Сообщений: 14,164
23.02.2010, 16:31 3
Быстрее будет если работать с числами, а не со строками.
0
23.02.2010, 16:31
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.02.2010, 16:31
Помогаю со студенческими работами здесь

Даны четырехзначные целые числа. Найти все числа, где все четыре цифры, составляющие число, одинаковы
Всем доброго времени суток.Пожалуйста ,напишите в паскале следующие задачи: №2 Даны...

Найти все четырехзначные числа, у которых равны крайние цифры
Очень нужна программа! Найти все четырехзначные числа, у которых равны крайние цифры, а само число...

Найти все четырёхзначные числа, что являются точным квадратом
определить назначение операции по её изображению, например, =-равно,<>-не равно, >=-не меньше и т.д...

Найти все четырёхзначные числа,в которых есть две одинаковые цифры
Найти все четырёхзначные числа,вкоторых есть две одинаковые цифры

даны натуральные числа m и n, получить все натуральные числа меньшие n, квадрат суммы которых равен m
даны натуральные числа m и n, получить все натуральные числа меньшие n, квадрат суммы которых равен...

Найти все натуральные числа, состоящие из N цифр, для которых верно утверждение "все цифры числа различны"
Дано натуральное число N (2<=N<=8). Найти все натуральные числа, состоящие из N цифр, для которых...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru