Программа замены цифры в числе. Дано натуральное число. Заменить все цифры 7 цифрами 8 и удалить из записи числа все 1.

@BezNika2904 · Регистрация: 14.04.2011

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

Дано натуральное число. Заменить все цифры 7 цифрами 8 и удалить из записи числа все 1. Например 175718 - 8588
Помогите пожалуйста с кодом программы. без массивов, с помощью циклов, условий. в паскале

@SuPeR XaKer · 13.11.2011, 14:03

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Uses CRT;
Var n,m:integer;
begin
repeat
 readln(n);
until n>0;
m:=0;
while n<>0 do
begin
 if n mod 10= 7 then m:=m*10+8
 else if n mod 10<>1 then m:=m*10+n mod 10;
 n:=n div 10;
end;
while m<>0 do
begin
 n:=n*10+m mod 10;
 m:=m div 10;
end;
write(n);
readln
end.

@BezNika2904 · 13.11.2011, 14:33 **[ТС]**

SuPeR XaKer, спасибо огромное) только она почему-то не совсем правильно работает.. даже не знаю почему

@SuPeR XaKer · 13.11.2011, 14:34

что не верно?приведите пример.

@BezNika2904 · 13.11.2011, 14:51 **[ТС]**

175718 - -2089

теперь все поняла, просто integer на longint надо было заменить и все,
все работает и понятно написано, спасибо большое!)

@SuPeR XaKer · 13.11.2011, 14:52

спасибо большое!)

Не по теме:

не за что.

@Jetu · 13.11.2011, 15:10

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
uses crt;
var s:string;
    i,a,code:integer;
begin
clrscr;
repeat
  writeln('Vvedite 4islo');
  readln(s);
  val(s,a,code);
  if code<>0 then writeln('Error');
until code=0;
repeat
i:=pos('1',s);
if i<>0 then
delete(s,i,1);
until i=0;
repeat
i:=pos('7',s);
if i<>0 then
s[i]:='8';
until i=0;
writeln('s = ',s);
readln;
end.

@SuPeR XaKer · 13.11.2011, 15:15

Jetu,

Дано натуральное число.

когда говорят число-это значит число а не строка.

@Jetu · 13.11.2011, 15:17

я как бы подумал что ты сам вводишь число (поэтому и сделал проверку val) ну и взял как строку естественно

@SuPeR XaKer · 13.11.2011, 15:19

Jetu, да не прокатывают решения со строками когда задание на числа.По тому что со строкой легче всего работать.И такие задания обычно даются на mod и div.

@Jetu · 13.11.2011, 15:24

в задании ведь не сказано что надо только mod и div использовать и запрещено делать задание через работу со строками. работает ведь... или я может чего то непонимаю

@SuPeR XaKer · 13.11.2011, 15:28

Не по теме:

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

Новые блоги и статьи Все статьи Все блоги /
Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Сложность Колмогорова: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .	C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .	Состояние гонки в C#: подводные камни многопоточного программирования UnmanagedCoder 20.03.2025 Что такое состояние гонки? Это ситуация, когда результат программы непредсказуемо меняется в зависимости от порядка выполнения потоков. Проще говоря, два или более потока пытаются одновременно. . .
Next.js для разработки React: преимущества серверного рендеринга Reangularity 20.03.2025 Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .	JUnit или TestNG: Выбираем Java-фреймворк для тестирования Javaican 20.03.2025 История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .	Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .	Python и PDF: Создание и редактирование файлов py-thonny 20.03.2025 Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .	Корутины в Unity и производительность WaitForSeconds GameUnited 20.03.2025 Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .

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

	Программа замены цифры в числе. Дано натуральное число. Заменить все цифры 7 цифрами 8 и удалить из записи числа все 1. 13.11.2011, 12:45. Показов 11401. Ответов 11 Метки нет (Все метки) Дано натуральное число. Заменить все цифры 7 цифрами 8 и удалить из записи числа все 1. Например 175718 - 8588 Помогите пожалуйста с кодом программы. без массивов, с помощью циклов, условий. в паскале 0

@BezNika2904 0 / 0 / 0 Регистрация: 14.04.2011 Сообщений: 3
	13.11.2011, 14:33 [ТС]
	SuPeR XaKer, спасибо огромное) только она почему-то не совсем правильно работает.. даже не знаю почему 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	13.11.2011, 14:34
	что не верно?приведите пример. 0

@BezNika2904 0 / 0 / 0 Регистрация: 14.04.2011 Сообщений: 3
	13.11.2011, 14:51 [ТС]
	175718 - -2089 теперь все поняла, просто integer на longint надо было заменить и все, все работает и понятно написано, спасибо большое!) 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	13.11.2011, 14:52
	спасибо большое!) Не по теме: не за что. 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	13.11.2011, 15:15
	Jetu, Дано натуральное число. когда говорят число-это значит число а не строка. 0

@Jetu касаткО 51 / 51 / 4 Регистрация: 01.10.2011 Сообщений: 227
	13.11.2011, 15:17
	я как бы подумал что ты сам вводишь число (поэтому и сделал проверку val) ну и взял как строку естественно 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	13.11.2011, 15:19
	Jetu, да не прокатывают решения со строками когда задание на числа.По тому что со строкой легче всего работать.И такие задания обычно даются на mod и div. 0

@Jetu касаткО 51 / 51 / 4 Регистрация: 01.10.2011 Сообщений: 227
	13.11.2011, 15:24
	в задании ведь не сказано что надо только mod и div использовать и запрещено делать задание через работу со строками. работает ведь... или я может чего то непонимаю 0

@SuPeR XaKer
	13.11.2011, 15:28
	Не по теме: BezNika2904, если захочет то прояснит на какую тему было задание и можно ли было использовать строки. 0

Опции темы