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

Дано натуральное число N. Построить новое число удалением из числа N нечетных цифр

21.12.2017, 12:11. Показов 2005. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дано натуральное число N. Построить новое число удалением из числа N нечетных цифр. Мне нужно это сделать в Паскале. Например, если ввожу N = 425, то в ответе получится 42
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2017, 12:11
Ответы с готовыми решениями:

Работа с цифрами числа. Дано натуральное число N. Получить новое число путем удаления всех нулевых цифр из цифровой записи числа. Пример N=1001. От
Работа с цифрами числа. 1)Дано натуральное число N. Получить новое число путем удаления всех...

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

Дано натуральное число. Найти число получаемое удалением числа а
Помогите решить задачу на языке Паскаля. дано натуральное число найти число получаемое удалением...

Дано натуральное число n. Найти количество нечётных цифр числа
Помогите, пожалуйста, составить программу работы с натуральными числами.

3
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32816 / 21154 / 8147
Регистрация: 22.10.2011
Сообщений: 36,413
Записей в блоге: 8
21.12.2017, 13:15 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var n, t, x : integer;
begin
  readln(n);
  t := 1; x := 0;
  while n > 0 do 
  begin
    if not odd(n mod 10) then 
    begin
      x := x + t * (n mod 10);
      t := t * 10;
    end;
    n := n div 10;
  end;
  writeln(x);
end.
, например
1
Puporev
21.12.2017, 13:24
  #3

Не по теме:

volvo, Не узнал тебя с этой аватаркой.

0
5072 / 2643 / 2350
Регистрация: 10.12.2014
Сообщений: 10,013
22.12.2017, 07:06 4
Можно оставить результат в исходной переменной именно „удалением нечётных цифр“:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  n, d : Integer;
begin
  Read(n);
  d := 1;
  while d <= n do
    if odd((n div d) mod 10) then
      n := n div (d*10) * d + n mod d
    else
      d := d * 10;
  Write(n);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2017, 07:06
Помогаю со студенческими работами здесь

Дано натуральное число. Найти число, получаемое удалением из исходного всех цифр a
Уважаемые знатоки внимание вопрос: Дано натуральное число. Найти число, получаемое удалением из...

Дано натуральное число. Найти число, получаемое удалением из исходного всех цифр a
Дано натуральное число. Найти число, получаемое удалением из исходного всех цифр a.

Дано трехзначное натуральное число А.Получить новое натуральное число В,который являлся бы перевёртышём числа А (например,А=123,тогда В=321 Assembler
1.Дано трехзначное натуральное число А. Получить новое натуральное число В, который являлся бы...

Дано натуральное число найти произведение нечетных цифр числа
Дано натуральное число (более четырех знаков): – найти произведение нечетных цифр числа; – верно...


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

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

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