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

Удалить k-ую цифру из записи числа

07.11.2016, 15:13. Просмотров 1212. Ответов 2
Метки нет (Все метки)

Дано натуральное число n. Удалить k-ую цифру из записи числа n.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.11.2016, 15:13
Ответы с готовыми решениями:

Удалить из записи натурального числа n вторую цифру
Дано натуральное число n. Удалить из записи вторую цифру.

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

Удалить в записи числа цифру, повторяющуюся максимальное число раз
Удаляет в записи числа цифру, повторяющуюся максимальное число раз, получая новое число;

Удалить цифру 1 в записи данного восьмеричного числа (нужно использовать Побитовые операции) на языке СИ
Помогите пожалуйста написать код и понять ход решения:scratch:, не смог разобраться Добавлено...

2
0 / 0 / 0
Регистрация: 09.10.2016
Сообщений: 22
12.11.2016, 15:30  [ТС] 2
получается удалить просто цифру,то есть,например из числа 15678 если я удаляю 5 выходит 1678,а надо чтобы было 1567,помогите плиз
0
Модератор
61102 / 45816 / 31630
Регистрация: 18.05.2008
Сообщений: 110,336
12.11.2016, 17:11 3
Вот алгоритм, для консольного режима это код программы.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
var n,k,n1,k1,k2,n2,c,s:integer;
begin
write('n=');
readln(n);
write('k=');
readln(k);
//узнаем сколько цифр в числе
k1:=0;
n1:=n;
while n1>0 do
 begin
  n1:=n1 div 10;
  k1:=k1+1;
 end;
if k1<k then write('В числе нет ',k,' цифр')
else
 begin
  //будем удалять цифру
  n1:=0;//новое число
  k2:=k1+1;//счетчик цифр
  s:=1;//стпень 10
  while n>0 do
   begin
    c:=n mod 10;//последняя цмфра
    k2:=k2-1;//ее номер слева
    if k2<>k then //если это не цифра с ермепом к
     begin
      n1:=n1+c*s;//умнжаем ее на 10^1, 10^2,10^3... и прибавляем к новому числу
      s:=s*10;//увеличим порядок 10^
     end;
    n:=n div 10;//сократим число в 10 раз
   end;
  write(n1);  //выведем новое число
 end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.11.2016, 17:11

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

Дано четырехзначное натуральное число. Удалить из записи этого числа все чётные цифры и цифру 0
Дано четырехзначное натуральное число. Удалить из записи этого числа все чётные цифры и цифру 0. ...

Из натурального трехзначного числа удалить заданную цифру. Число и цифру вводить с клавиатуры
Из натурального трехзначного числа удалить заданную цифру. Число и цифру вводить с клавиатуры.

Удалить цифру из записи
дано натуральное число n, Удалить из записи число цифру 0 и 5. оставив преждный порядок остальных...

Напечатать k цифру в записи числа n
Даны натуральные числа n и k. Напечатать k цифру в записи числа n


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

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

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