Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Kosmodzila007
-99 / 1 / 0
Регистрация: 09.10.2013
Сообщений: 71
#1

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

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

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

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

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

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

Задача: Пусть дано натуральное число n... - Pascal
Пусть дано натуральное число n и вещественные числа а1, а2,..., аn, которые вводятся по одному. Получите: а1* а2 + а2*а3 + ... + аn-1 *...

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

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

3
Новичок
Модератор
1393 / 855 / 201
Регистрация: 17.07.2012
Сообщений: 4,467
Записей в блоге: 1
Завершенные тесты: 3
28.10.2013, 00:35 #2
Цитата Сообщение от Kosmodzila007 Посмотреть сообщение
не изменив разрядность.
А что нули повписывать или как?
0
Kosmodzila007
-99 / 1 / 0
Регистрация: 09.10.2013
Сообщений: 71
28.10.2013, 01:09  [ТС] #3
ддааааа!
0
Cyborg Drone
Модератор
4830 / 2999 / 1206
Регистрация: 17.08.2012
Сообщений: 9,592
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
28.10.2013, 02:54
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.10.2013, 02:54
Привет! Вот еще темы с ответами:

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

Дано натуральное четырехзначное число. Входит ли цифра 1 в число ровно 3 раза - Turbo Pascal
Дано натуральное четырехзначное число. Входит ли цифра 1 в число ровно 3 раза. помогите написать программу решения

Дано натуральное число - Количество его цифр есть четное число - Turbo Pascal
Мой код. Program rb_2; uses crt; var c:string; begin clrscr; Write('Введите число: '); readln(c); if length(c) mod...

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


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

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

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