Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Kosmodzila007
-19 / 1 / 0
Регистрация: 09.10.2013
Сообщений: 71
#1

Заданно натуральное число N. Задача в Паскале - Turbo Pascal

27.10.2013, 22:13. Просмотров 378. Ответов 3
Метки нет (Все метки)

Для заданного натурального числа N удалить из записи числа указанную цифру не изменив разрядность.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.10.2013, 22:13
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Заданно натуральное число N. Задача в Паскале (Turbo Pascal):

Задача. Дано натуральное число n и вещественное x. Найти сумму всех чисел
Плиз, помогите решить задачу! Текс задачи>> Дано натуральное число n и...

Дано натуральное число N. Поменять порядок цифр числа N на обратный. в паскале
плиз

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

Задача: Пусть дано натуральное число n...
Пусть дано натуральное число n и вещественные числа а1, а2,..., аn, которые...

Дано натуральное число n. Получите наименьшее натуральное число вида m2, превосходящее n
Дано натуральное число n. Получите наименьшее натуральное число вида m2,...

Дано число n. Найти первое натуральное число квадрат которого больше n
Дано число n. Найти первое натуральное число квадрат которого больше n.

3
Новичок
Модератор
1482 / 949 / 457
Регистрация: 17.07.2012
Сообщений: 4,888
Завершенные тесты: 3
28.10.2013, 00:35 #2
Цитата Сообщение от Kosmodzila007 Посмотреть сообщение
не изменив разрядность.
А что нули повписывать или как?
0
Kosmodzila007
-19 / 1 / 0
Регистрация: 09.10.2013
Сообщений: 71
28.10.2013, 01:09  [ТС] #3
ддааааа!
0
Cyborg Drone
Модератор
5252 / 3119 / 2433
Регистрация: 17.08.2012
Сообщений: 10,074
28.10.2013, 02:54 #4
Вариант 1. Работа с самим числом. Заменяются все вхождения указанной цифры в число на 0. Если цифра совпадает со старшим разрядом, разрядность меняется, естественно, так как ведущий ноль не пишется.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program zerodig;
 
var n, d, i: integer;
 
begin
  repeat
    write('n = ');
    readln(n)
  until n > 0;
  repeat
    write('Digit = ');
    readln(d)
  until d in [1..9];
  i := 10;
  while n > i div 10 do
    begin
      if (n mod i) div (i div 10) = d then n := (n div i) * i + (n mod (i div 10));
      i := i * 10
    end;
  writeln('Now n = ', n);
  readln
end.
Если не затрагивать преобразованиями старший разряд числа, то строку 15 надо заменить на
Pascal
1
  while n > i do
Вариант 2. Работа с символьным представлением числа.
Pascal
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
program zerodig;
 
var n: string;
    d: char;
    i: integer;
    f: boolean;
 
begin
  repeat
    write('n = ');
    readln(n);
    f := true;
    for i := 1 to length(n) do if not(n[i] in ['0'..'9']) then
      begin
        f := false;
        break
      end
  until f;
  repeat
    write('Digit = ');
    readln(d)
  until d in ['1'..'9'];
  for i := 1 to length(n) do if n[i] = d then n[i] := '0';
  writeln('Now n = ', n);
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.10.2013, 02:54
Привет! Вот еще темы с решениями:

Дано натуральное четырехзначное число. Входит ли цифра 1 в число ровно 3 раза
Дано натуральное четырехзначное число. Входит ли цифра 1 в число ровно 3 раза. ...

Найти натуральное наименьшее число n, факториал которого превышает число 4000
Написать программу для решения следующей задачи,используя,по крайней мере, два...

Дано натуральное число - Количество его цифр есть четное число
Мой код. Program rb_2; uses crt; var c:string; begin clrscr; ...

Даны натуральное число n, действительное число а. Выдать на экран последовательность чисел: а, а+1!, а+2!, а+3!, . , а+п!
вот есть програма которая просто виводит последовательность чисел без...


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

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

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