1 / 1 / 1
Регистрация: 27.09.2015
Сообщений: 69

Рекурсия. В натуральном числе оставляет только четные цифры

22.10.2015, 23:08. Показов 1533. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Программа в которой функция в данном натуральном числе, входящим в диапазон типа longint оставляет только чётные цифры. использовать рекурсию
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
22.10.2015, 23:08
Ответы с готовыми решениями:

В натуральном числе оставляет только четные цифры
Программа в которой функция в данном натуральном числе, входящим в диапазон типа longint оставляет только чётные цифры.

Цифры в натуральном числе
Помогите плиз решить следующую задачку: "Дано натуральное число. Определить, образуют ли цифры числа арифметическую прогрессию "

Рекурсия: подсчет количества цифр в заданном натуральном числе
12Подсчитать количество цифр в заданном натуральном числе. Составить рекуррентную функцию.

2
охотник
 Аватар для vint-81
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
23.10.2015, 08:05
Лучший ответ Сообщение было отмечено Чирикан как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var k:longint;v:boolean;
function chet(x,n:longint;var f:boolean):longint;
begin
 if x>0
  then
   begin
    if not odd(x mod 10)
     then begin f:=true; chet:=(x mod 10)*n+chet(x div 10,n*10,f) end
     else chet:=chet(x div 10,n,f)
   end
  else chet:=0
end;
begin
 readln(k);
 v:=false;
 k:=(chet(k,1,v));
 if v then writeln(k)
      else writeln('нет четных цифр')
end.
0
 Аватар для APALoff
1647 / 1076 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
23.10.2015, 10:11
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function Chet(N : Longint) : Longint;
Begin
  If N>0 then
  Begin
    If not Odd(N mod 10) and ((N mod 10)<>0) then Chet:=Chet(N div 10)*10+(N mod 10)
    else Chet:=Chet(N div 10);
  end else Chet:=0;
end;
 
Begin
  Writeln(Chet(12345670)); {246}
  Writeln(Chet(13570));    {0}
  Writeln(Chet(24680));    {2468}
  Writeln(Chet(10));       {0}
  Writeln(Chet(20));       {2}
  Writeln(Chet(0));        {0}
end.
Добавлено через 1 минуту
Я не стал включать 0 в чётные числа.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
23.10.2015, 10:11
Помогаю со студенческими работами здесь

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

Четные и нечетные цифры в числе.
Дано некоторое целое число. Написать программу, которая определяет, каких цифр в нем больше четных или нечетных. Кроме того, сформировать...

Заменить четные цифры в числе на нечетные и наоборот.
Пользователь вводит 5 значное число .Необходимо составить обратно число заменив четные значения на нечетные и наоборот. Написать нужно...

В заданном натуральном числе поменять порядок цифр на обратный
1. Вычислить сумму 2/3+3/4+4/5+…+10/11. 2. Дана последовательность натуральных чисел. Если на четном месте находится элемент кратный 3,...

Разработать функцию, определяющую колличество цифр в заданном натуральном числе...
Разработать функцию, определяющую колличество цифр в заданном натуральном числе.Разработать процедуру, находящуюю сумму двух трехзначных...


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

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

Новые блоги и статьи
Мульти-тенантные БД с PostgreSQL Row Security
Codd 23.04.2025
Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .
Реализация конвейеров машинного обучения с Python и Scikit-learn
AI_Generated 23.04.2025
Мир данных вокруг нас растёт с каждым днём, и умение эффективно обрабатывать информацию стало необходимым навыком. Специалисты по машинному обучению ежедневно сталкиваются с задачами предобработки. . .
Контроллеры Kubernetes Ingress: Сравнительный анализ
Mr. Docker 23.04.2025
В Kubernetes управление входящим трафиком представляет собой одну из ключевых задач при построении масштабируемых и отказоустойчивых приложений. Ingress — это API-объект, который служит вратами. . .
Оптимизация кода Python с Cython и Numba
py-thonny 23.04.2025
Python прочно обосновался в топе языков программирования благодаря своей простоте и гибкости. Разработчики любят его за читабельность кода и богатую экосистему библиотек. Но у этой медали есть и. . .
Микросервис на Python с FastAPI и Docker
ArchitectMsa 23.04.2025
В эпоху облачных вычислений и растущей сложности программных продуктов классическая монолитная архитектура всё чаще уступает место новым подходам. Микросервисная архитектура становится фаворитом. . .
Создаем веб-приложение на Vue.js и Laravel
Reangularity 23.04.2025
Выбор правильного технологического стека определяет успех веб-проекта. Laravel и Vue. js формируют отличную комбинацию для создания современных приложений. Laravel — это PHP-фреймворк с элегантным. . .
Максимальная производительность C#: Span<T> и Memory<T>
stackOverflow 22.04.2025
Мир высоконагруженных приложений безжалостен к неэффективному коду. Каждая миллисекунда на счету, каждый выделенный байт памяти может стать причиной падения производительности. Разработчики на C#. . .
JWT аутентификация в Java
Javaican 21.04.2025
JWT (JSON Web Token) представляет собой открытый стандарт (RFC 7519), который определяет компактный и самодостаточный способ передачи информации между сторонами в виде JSON-объекта. Эта информация. . .
Спринты Agile: Планирование, выполнение, ревью и ретроспектива
EggHead 21.04.2025
Спринты — сердцевина Agile-методологии, позволяющая командам создавать работающий продукт итерационно, с постоянной проверкой гипотез и адаптацией к изменениям. В основе концепции спринтов лежит. . .
Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров
Programma_Boinc 21.04.2025
Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров. 3 марта 2025 года, в результате обобщенного поиска простых чисел Ферма в PrimeGrid был найден. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru