Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр

@just_a_mist · Регистрация: 26.06.2015

Author24 — интернет-сервис помощи студентам

Всем доброго времени суток. Нужна помощь в написании кода (как сам ни старался, но осознал лишь, что реальный "чайник" в этом).
Дано четырехзначное число n. Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр. Например, из числа 1509 должно получиться 19. Через оператор цикла for…to…do…
P.S. именно при помощи этих операторов (примеры с другими операторами видел). Буду весьма признателен!

@JokeR.BY · 27.06.2015, 16:09

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

@Cyborg Drone · 28.06.2015, 08:38

Простейший вариант, без проверок ввода и вывода, для неотрицательных четырёхзначных чисел :

Pascal

var n, k, t, i: integer;
begin
  readln(n);
  k := 0;
  for i := 1 to 4 do
    begin
      t := n div 1000;
      n := n * 10 mod 10000;
      if not (t in [0, 5]) then k := k * 10 + t
    end;
  write(k);
  readln
end.

С неявной проверкой ввода (при вводе числа, превышающего диапазон типа longint [-2147483648..2147483647] будет ошибка) и с проверкой вывода (если число содержит только цифры 0 и 5, выводится соответствующее сообщение):

Pascal

var n, k, t, q, i: longint;
begin
  write('n = ');
  readln(n);
  k := 0;
  if n <> 0 then
  begin
    q := 1;
    for i := 1 to trunc(ln(abs(n)) / ln(10)) + 1 do
      begin
        t := n mod 10;
        n := n div 10;
        if not (abs(t) in [0, 5])
          then begin
            k := k + t * q;
            q := q * 10
          end
      end
  end;
  if k = 0
    then write('Число состоит только из цифр 0 и 5')
    else write('Result: ', k);
  readln
end.

@just_a_mist 0 / 0 / 0 Регистрация: 26.06.2015 Сообщений: 3
		1
	Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр 26.06.2015, 21:11. Показов 5974. Ответов 2 Метки нет (Все метки) Всем доброго времени суток. Нужна помощь в написании кода (как сам ни старался, но осознал лишь, что реальный "чайник" в этом). Дано четырехзначное число n. Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр. Например, из числа 1509 должно получиться 19. Через оператор цикла for…to…do… P.S. именно при помощи этих операторов (примеры с другими операторами видел). Буду весьма признателен! 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	27.06.2015, 16:09	2
	Выбросить из записи числа все заданные цифры, оставив прежним порядок остальных цифр 1

	28.06.2015, 08:38

Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр

Решение