Замена букв

@valentime007 · Регистрация: 10.06.2016

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

Прочитать с клавиатуры строку символов. Сделать его копию, заменив одновременно буквы "R", "S", "T" на 'K', 'L', 'M' соответственно.

P.S. Если можно скиньте файлом.

@Puporev · 17.06.2016, 11:49

Delphi

readln(s);//вводим строку
n:=length(s);//ее длина
s1:='';//копия строки
for i:=1 to n do//составляем ее
if s[i]='R' then s1[i]:='K'
else if s[i]='S' then s1[i]:='L'
else if s[i]='T' then s1[i]:='M'
else s1[i]:=s[i];

@D1973 · 17.06.2016, 12:02

Puporev, добавить бы еще в конце

Delphi

1	writeln(s);

а то, ей богу, вопрос возникнет

@Puporev · 17.06.2016, 12:03

Delphi

1	writeln(s1);

@D1973 · 17.06.2016, 12:45

Не по теме:

о, точно!!!

@valentime007 0 / 0 / 1 Регистрация: 10.06.2016 Сообщений: 34
		1
	Замена букв 17.06.2016, 00:33. Показов 773. Ответов 4 Метки нет (Все метки) Прочитать с клавиатуры строку символов. Сделать его копию, заменив одновременно буквы "R", "S", "T" на 'K', 'L', 'M' соответственно. P.S. Если можно скиньте файлом. 0

@D1973
	17.06.2016, 12:45 Замена букв #5
	Не по теме: о, точно!!! 0

Опции темы