Задача - Помощь студентам

marsius · 20.02.2009, 19:30

Привет Всем ! Помогите мне решить задачи и опишите в проге некоторые моменты действий.

1) Заменить все цифры 7 на 8 и удалить из записи единицы.

Например: N: а=17518 и должно получиться 8588

Sazary · 20.02.2009, 19:44

Что не получается? Где ваш код?

Читаете число как строку.
Проходите по строке. Если текущий символ - '7', то выводите '8'.
Если '1', то пропускаем.
Иначе выводим то, что есть.

Обязательно загляните сюда. Очень полезные ссылки!
http://programmersforum.ru/rules.php
http://programmersforum.ru/announcement.php?f=31
http://programmersforum.ru/announcement.php?f=14

alex_fcsm · 20.02.2009, 20:12

Код:

var s:string;
    i:integer;
begin
readln(s);
for i:=length(s) downto  1 do
 begin
  if s[i]='7' then s[i]:='8'
    else if s[i]='1' then delete(s,i,1);
 end;
 writeln(s);
end.

P.S. Если 17518 перевести то должно получиться 858

20.02.2009, 19:30	#1
marsius Пользователь Регистрация: 18.04.2008 Сообщений: 12	Задача Привет Всем ! Помогите мне решить задачи и опишите в проге некоторые моменты действий. 1) Заменить все цифры 7 на 8 и удалить из записи единицы. Например: N: а=17518 и должно получиться 8588

20.02.2009, 19:44	#2
Sazary В тени Старожил Регистрация: 19.12.2008 Сообщений: 5,788	Что не получается? Где ваш код? Читаете число как строку. Проходите по строке. Если текущий символ - '7', то выводите '8'. Если '1', то пропускаем. Иначе выводим то, что есть. Обязательно загляните сюда. Очень полезные ссылки! http://programmersforum.ru/rules.php http://programmersforum.ru/announcement.php?f=31 http://programmersforum.ru/announcement.php?f=14 Вполне очевидно, чтобы что-то понять, необходимо книги читать. Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]

20.02.2009, 20:12	#3
alex_fcsm Участник клуба Регистрация: 10.11.2008 Сообщений: 1,502	Код: `var s:string; i:integer; begin readln(s); for i:=length(s) downto 1 do begin if s[i]='7' then s[i]:='8' else if s[i]='1' then delete(s,i,1); end; writeln(s); end.` P.S. Если 17518 перевести то должно получиться 858 Нормальное состояние техники - нерабочее, все остальное частный случай.