Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.63/16: Рейтинг темы: голосов - 16, средняя оценка - 4.63
1 / 1 / 0
Регистрация: 23.11.2012
Сообщений: 35

Выбросить из записи числа n цифры 0 и 5

24.11.2012, 00:06. Показов 3467. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Составьте программу без использования строковых переменных, которая разбивает число n на цифры и выводит их в столбик. Дополните программу для решения одной из следующих задач.


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


Проследите исполнение программы в пошаговом режиме (F7), создав в Watch-окне (Ctrl+F7) список промежуточных величин задачи.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
24.11.2012, 00:06
Ответы с готовыми решениями:

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

Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр
Всем доброго времени суток. Нужна помощь в написании кода (как сам ни старался, но осознал лишь, что реальный "чайник" в этом). ...

Текстовый файл содержит несколько целых чисел, выбросить из записи числа цифры 0 и 2
Помогите сделать задание! первая часть уже сделана, исходя из нее, надо сделать дальше! ЗАДАНИЕ Текстовый файл содержит несколько...

4
 Аватар для SladkayaVata
272 / 188 / 173
Регистрация: 06.06.2012
Сообщений: 322
24.11.2012, 15:38
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  a: array[1..100] of byte;
  n, i, k: integer;
begin
  readln(n);
  i := 0;
  while n > 0 do
  begin
    inc(i); 
    a[i] := n mod 10;
    n := n div 10;
  end;
  for k := i downto 1 do
    if (a[k] <> 0) and (a[k] <> 5) then
      writeln(a[k]);
end.
2
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
24.11.2012, 21:15
Это неверное (точнее, неточное) решение. В результате на экране появляются отдельные цифры, а вовсе не запись числа, требуемая по условию. Верный вывод должен быть таким:
Ввод: 425020
Вывод: 45
Это достигается "сборкой" числа из его цифр, без нулей и двоек.
2
1 / 1 / 0
Регистрация: 23.11.2012
Сообщений: 35
24.11.2012, 22:47  [ТС]
сделайте пожалуйста как должно быть)
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
25.11.2012, 00:34
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
a,b,k:longint;
begin
readln(a);
b:=0;
k:=1;
repeat
if (a mod 10<>0)and(a mod 10<>5) then
begin
b:=b+(a mod 10)*k;
k:=k*10;
end;
a:=a div 10;
until a=0;
writeln(b);
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
25.11.2012, 00:34
Помогаю со студенческими работами здесь

Выбросить из записи числа цифры от k1 до k2, оставив прежним порядок его остальных цифр.
Дано натуральное число N. Выбросить из записи числа цифры от k1 до k2, оставив прежним порядок его остальных цифр. Например, при k1=1, ...

Выбросить из записи числа все заданные цифры, оставив прежним порядок остальных цифр
Ребятки умняшки, помогите написать простенькую задачку :) Дано натуральное число. Выбросить из записи числа все заданные цифры,...

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

Выбросить из натурального числа цифры 0 и 5
Доброго времени суток! Только начал разбираться в Паскале. Есть задача: Определить функцию f(n), значением которой является...

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


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru