выбросить из записи числа n цифры...

@dianochka · Регистрация: 19.03.2010

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

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

@кот Бегемот · 19.03.2010, 23:53

Сообщение от dianochka

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
n,k:longint;
begin
writeln('vvedite chislo');
readln(n);
while n<>0 do
begin
if (n mod 10<>2 )and (n mod 10<>7 )then k:=k*10+n mod 10;
n:=n div 10;
end;
while k<>0 do
begin
n:=n*10+k mod 10;
k:=k div 10;
end;
writeln('chislo=',n);
readln;
end.

@STGE · 20.03.2010, 00:29

Можно конечно и через строки, но этот вариант только для рассмотрения частных случаев:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Program strok;
Uses crt;
Var a,b: string; i: byte;
Begin
Clrscr;
Write('Введите строку: ');
Readln(a);
b:=a;
For i:=1 to length(a) do
If (b[i]='2') or (b[i]='7') then
Delete(a,pos(b[i],a),1);
Write('Результат ',a);
End.

@Puporev · 20.03.2010, 09:49

STGE,
Вот задание

Сообщение от dianochka

с помощью while написать программу ..

И где у Вас while? Повыделываться хочется?

@STGE · 20.03.2010, 13:43

Уважаемый,Puporev, я думаю, что заменить For...to...do на While...do не должно бы составить особого труда. Понимаете - тут дело в том что, чем меньших размеров программа, тем она, на мой взгляд, более читабельна. И никакого выпендрежа

Повыделываться хочется?

я здесь не вижу; просто предложил свой вариант

@Puporev · 20.03.2010, 14:19

STGE, Это не нужный вариант, он не соответствует условию и только путает новичка.

@DEMAN13 · 01.04.2010, 23:54

прога от (кота Бегемота) правильная

@WolfCF · 02.04.2010, 05:32

вот блок-сема

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью 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 Решили писать научную статью с неким РОманом

@dianochka 0 / 0 / 0 Регистрация: 19.03.2010 Сообщений: 3

	выбросить из записи числа n цифры... 19.03.2010, 23:26. Показов 6062. Ответов 7 Метки нет (Все метки) всем приветик... помогите кто может... с помощью while написать программу .. дано натуральное число п, выбросить из записи числа n цифры 2 и 7, оставив прежним порядок остальных цифр.. если можно сделаете блок схему.. заранее благодарюс 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	20.03.2010, 14:19
	STGE, Это не нужный вариант, он не соответствует условию и только путает новичка. 0

@DEMAN13 8 / 8 / 7 Регистрация: 25.03.2010 Сообщений: 32
	01.04.2010, 23:54
	прога от (кота Бегемота) правильная 0

@WolfCF 3316 / 1378 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	02.04.2010, 05:32
	вот блок-сема Миниатюры 0