Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 28.02.2009
Сообщений: 14
1

Нахождения чисел полиндромов.

30.03.2009, 20:01. Просмотров 1161. Ответов 2
Метки нет (Все метки)


Натуральное число называется полиндромом, если его запись читается одинаково с начала и с конца (напр: 4884,393,1). Найти все числа полиндромы, что непривышають 100.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.03.2009, 20:01
Ответы с готовыми решениями:

Процедуры и функции: в массивах определить количество чисел – полиндромов
В одномерных массивах А и B определить количество чисел – полиндромов ( т.е. таких, десятичная...

Подпрограммы. Составить программу нахождения наибольшего общего делителя нескольких чисел, используя функцию нахождения НОД двух чисел
Задачи нужно решить с помощью процедур 1 Составить программу нахождения наибольшего общего...

Функция принимает указатель на динамический массив и возвращает его же, но без чисел полиндромов (читается с обоих сторон одинаково - 234432)
Вот мое решение, подскажите, пожалуйста, что изменить, чтобы заработала программа: # include...

Кол-во полиндромов
Как подсчитать кол-во семизначных полиндромов? Полиндром ето числа одинковое слево направо и справо...

2
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
30.03.2009, 20:09 2
вообще таких чисел всего немного: 1,2,3,4,5,6,7,8,9,11,22,33...99
0
Модератор
62918 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,743
30.03.2009, 20:15 3
Лучший ответ Сообщение было отмечено Ioanna как решение

Решение

Все верно, их немного, поэтому до 100 можно написать так.
Pascal
1
2
3
for i:=1 to 99 do
if (i div 10=0) or ((i div 10>0)and(i mod 10=i div 10)) // если однозначное или двухзначное и вторая цифра=первой
then writeln(i);//выводим
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.03.2009, 20:15

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

сортировка полиндромов
Помогите пожалуйста написать программу... условие: В файле записаны слова. Вывести на экран все...

Нахождение слов-полиндромов в строке
Уважаемые специалисты Prolog! Спасите пожалуйста! Следущая задача: Удалить все символы, не...

Найти количество слов-полиндромов в заданном тексте.
Как решить задачу??? Дан текст, в котором слова разделены одним или несколькими пробелами. Найти...

Найти наибольшее из трех чисел, используя процедуру нахождения наибольшего из 2 чисел.
10. Найти наибольшее из трех чисел, используя процедуру нахождения наибольшего из 2 чисел.


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

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

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