Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 21.01.2018
Сообщений: 13
1

Получить в порядке возрастания все палиндромы из 2, 3 и 4 цифр

22.01.2018, 02:38. Просмотров 991. Ответов 3

Получить в порядке возрастания все палиндромы из 2, 3 и 4 цифр.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.01.2018, 02:38
Ответы с готовыми решениями:

Все числа от a до b включительно отсортируйте в порядке возрастания суммы цифр
Все числа от a до b включительно отсортируйте в порядке возрастания суммы цифр. ПРИМЕР: а=15,...

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

Получить в порядке возрастания все различные элементы одномерного массива
Имеется одномерный массив, содержащий n элементов. Получить в порядке возрастания все различные...

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

3
Платежеспособный зверь
8682 / 4110 / 1594
Регистрация: 28.10.2009
Сообщений: 11,100
22.01.2018, 08:59 2
Лучший ответ Сообщение было отмечено Mastikoff как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
var
i:integer;
begin
for i:=10 to 9999 do
begin
if (i<100) and (i div 10=i mod 10)then write (i,' ');
if (i>=100)and(i<1000)and (i mod 10=i div 100) then write(i,' ');
if (i>=1000)and(i div 1000=i mod 10)and(i div 100 mod 10=i div 10 mod 10)then write(i,' ');
end;
end.
1
3694 / 1771 / 1954
Регистрация: 10.12.2014
Сообщений: 6,875
22.01.2018, 10:19 3
Зачем проверки с делениями?
Всё гораздо проще:
Pascal
1
2
3
4
5
6
var i, j : Byte;
begin
  for i := 1 to 9 do Write(i, i, ' '); WriteLn;
  for i := 1 to 9 do for j := 0 to 9 do Write(i, j, i, ' '); WriteLn;
  for i := 1 to 9 do for j := 0 to 9 do Write(i, j, j, i, ' '); WriteLn;
end.
0
Платежеспособный зверь
8682 / 4110 / 1594
Регистрация: 28.10.2009
Сообщений: 11,100
22.01.2018, 11:03 4
Цитата Сообщение от JuriiMW Посмотреть сообщение
Всё гораздо проще:
Да, возможно, это проще. Но палиндром - это число, а у вас, увы, наборы цифр.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.01.2018, 11:03

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Получить в порядке возрастания все целые числа из заданного интервала
Дан массив целых чисел. Найти в этом массиве минимальный элемент t и максимальный элемент k....

Получить в порядке возрастания все различные элементы одномерного массива
Имеется одномерный массив, содержащий n элементов. Получить в порядке возрастания все различные...

Получить в порядке возрастания все различные числа, входящие в массив А
дан массив А целых чисел. Размерность массива n (&lt;=120). Использовать алгоритм сортировки...

Получить в порядке возрастания все разные числа, что входят в массив
Нужна помощь! 1. Дан массив А. Получить в порядке возрастания все разные числа, что входят в...


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

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

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