Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 181498
20.12.2010, 21:35
0.00 руб.
0 4 1
Компьютеры Программирование
Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос:
Даны натуральное число n, символы s1, …, sn.
Преобразовать последовательность s1, …, sn, удалив каждый символ *
и повторив каждый символ, отличный от *.

Обсуждение

Неизвестный
20.12.2010, 21:47
общий
Здравствуйте Иван!
1)Символ для удаления вводится?
2)как я понял надо сделать чтото типа такого
Исходное
abfgdkvml надо удалить допустим m
Получем aabbffggddkkvvll?

Неизвестный
20.12.2010, 23:12
общий
мне кажется примерно так и есть, сам понять не мог, поэтому сюда и написал
Неизвестный
21.12.2010, 01:34
общий
ну я оформлю вам ответ в ближайщее время
Неизвестный
21.12.2010, 02:26
общий
это ответ
Здравствуйте, Иван!

Вот листинг программы...что непонятно задавайте вопросы!

Код:
program p181498;
const n=5;
var s:array [1..n] of string;
    s1:string;
    i:byte;
begin
  for i:=1 to n do  //ввод символов
    readln(s[i]);
  writeln('введите символ ');
  readln(s1);
  for i:=1 to n do
   begin                      //сравнение и удаление
    if s[i]<>s1 then
      begin
       s[i]:=s[i]+s[i]; 
      end
     else
      begin
       s[i]:='';
      end;
   end;
  for i:=1 to n do    //вывод на экран
    write(s[i]);
  readln;
  readln;
end.


Удачи разобраться!
Форма ответа