Ввести строку. Заменить все буквы "е" и "а" в тексте на "8" , "4" и "6". Вывести на экран модифицированную строку

@Succous · Регистрация: 14.06.2012

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

Ввести строку. Заменить все буквы "е" и "а" в тексте на "8" , "4" и "6". Вывести на экран модифицированную строку.

Пример:
Строка: The end of the world is a very bad news.
Измененная строка: Th8 8nd 4f the w4rld is a v8ry b6d n6ws.

HighPredator · 31.01.2013, 13:14

Судя по примеру еще и буква "о" должна меняться на 4. Так вот можно:

Pascal

var
  s:string;
 
begin
  readln(s);
  while Pos('a',s)<>0 do s[Pos('a',s)]:='6';
  while Pos('e',s)<>0 do s[Pos('e',s)]:='8';
  while Pos('o',s)<>0 do s[Pos('o',s)]:='4';
  writeln(s);
  readln;
end.

@Succous · 01.02.2013, 21:02 **[ТС]**

Ваша зависает.

Я вот так написал , но при вводе букв символы почему-то не меняются..

HighPredator · 01.02.2013, 21:42

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

Ваша зависает.

Моя не зависает.

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

Я вот так написал , но при вводе букв символы почему-то не меняются..

И не удивительно. Вы сделали цикл с пустым телом.

@Succous · 02.02.2013, 12:47 **[ТС]**

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

Моя не зависает.

Вот теперь работает , thx.

Thread clossed.

@Succous 650 / 626 / 9 Регистрация: 14.06.2012 Сообщений: 1,727
		1
	Ввести строку. Заменить все буквы "е" и "а" в тексте на "8" , "4" и "6". Вывести на экран модифицированную строку 31.01.2013, 13:01. Показов 4134. Ответов 4 Метки нет (Все метки) Ввести строку. Заменить все буквы "е" и "а" в тексте на "8" , "4" и "6". Вывести на экран модифицированную строку. Пример: Строка: The end of the world is a very bad news. Измененная строка: Th8 8nd 4f the w4rld is a v8ry b6d n6ws. 0

@Succous 650 / 626 / 9 Регистрация: 14.06.2012 Сообщений: 1,727
	01.02.2013, 21:02 [ТС]	3
	Ваша зависает. Я вот так написал , но при вводе букв символы почему-то не меняются.. Миниатюры 0

HighPredator 6044 / 2159 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	01.02.2013, 21:42	4
	Сообщение от COK Ваша зависает. Моя не зависает. Сообщение от COK Я вот так написал , но при вводе букв символы почему-то не меняются.. И не удивительно. Вы сделали цикл с пустым телом. Миниатюры 1

@Succous 650 / 626 / 9 Регистрация: 14.06.2012 Сообщений: 1,727
	02.02.2013, 12:47 [ТС]	5
	Сообщение от HighPredator Моя не зависает. Вот теперь работает , thx. Thread clossed. 0

Опции темы

Ввести строку. Заменить все буквы "е" и "а" в тексте на "8" , "4" и "6". Вывести на экран модифицированную строку

Решение