Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 09.03.2010
Сообщений: 4

составить подпрограмму, которая печатает все натуральные числа,меньшие N, являющиеся полиндромом.Число N передать подпрограмме как параметр.

27.03.2010, 12:41. Показов 1950. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
составить программу, которая печатает все натуральные числа,меньшие N, являющиеся полиндромом.Число N передать подпрограмме как параметр.

решите пожалуйста
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
27.03.2010, 12:41
Ответы с готовыми решениями:

Создать функцию, которая печатает все натуральные числа, меньше N, являющиеся палиндромом
Создать функцию, которая печатает все натуральные числа, меньше N, являющиеся полиндромом. Число называется полиндромом, если оно читается...

Дано натуральное число N. Получить все натуральные числа, меньшие N и взаимно простые с P
Здравствуйте. Помогите, пожалуйста, решить задачу: Дано натуральное число N. Получить все натуральные числа, меньшие N и взаимно простые...

Дано натуральное число k. Получите все натуральные числа, меньшие k и взаимно простые с ним
Тест. k=24. Результат. 1; 5; 7; 11; 13; 17, 19; 23. Помогите с написанием программы, желательно с комментариями..заранее спасибо.

2
 Аватар для gromil
2 / 2 / 4
Регистрация: 26.12.2009
Сообщений: 70
27.03.2010, 13:05
Лучший ответ Сообщение было отмечено LAV как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
// вот самый простой вариант
var  n,n1,j:integer;
 
function pal(var n:integer):boolean;  (*функция определения палинрома*)
var ss,s:string;
begin
str(n,s);  (*переводим число в строку, так легче работать*)
ss:='';
for j:=length(S) downto 1 do ss:=ss+s[j];
If ss=s then pal:=true else pal:=false;
end;
 
begin
readln(N);
dec(N);    (*числа должны быть строго меньше эн, пожтому уменьшаем его на единицу*)
while n>0 do    {пока эн=натуральное}
begin
If pal(n)=true then write(N,' ');   (*если палиндром, то выводим число*)
dec(N);
end;
readln
end.
0
0 / 0 / 0
Регистрация: 09.03.2010
Сообщений: 4
27.03.2010, 13:24  [ТС]
спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
27.03.2010, 13:24
Помогаю со студенческими работами здесь

Даны натуральные числа n, m. Найти все натуральные числа меньшие n, квадрат суммы цифр которых равен m
Даны натуральные числа n, m. Найти все натуральные числа меньшие n, квадрат суммы цифр которых равен m

Даны натуральные числа n, m. Получить все меньшие n натуральные числа, квадрат суммы цифр которых , равен m
Даны натуральные числа n, m. Получить все меньшие n натуральные числа, квадрат суммы цифр которых , равен m Решите на С++.Буду благодарна!

Даны натуральные числа n, m. Получить все меньшие n натуральные числа, квадрат суммы цифр которых равен m
namespace ConsoleApplication1 { class Program { static void Main(string args) { ...

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

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


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru