Вопрос по информатике:
Имя для питона
Питоны очень внимательно относятся к выбору своих имён. Сначала для каждого детёныша его мать придумывает последовательность маленьких латинских букв по известному только питонам правилу. Однако в результате часто получается труднопроизносимое слово. Поэтому в полученной последовательности труднопроизносимые буквы нужно заменить на любимую питонами букву A. Но это не всегда возможно, так как древний питонский закон гласит, что нельзя менять буквы, стоящие на позициях Ci (по древней традиции, позиции нумеруются, начиная с нуля).
Входные данные
В первой строке записано слово S (1 ≤ len(S) ≤ 100), придуманное матерью питона и состоящее из маленьких латинских букв. Во второй строке через пробел перечислены буквы Bi(1 ≤ i ≤ 25), труднопроизносимые для питонов. В третьей строке через пробел перечислены позиции Ci (0 ≤ Ci < len(S), 0 ≤ i ≤ len(S) ≤ 100), изменения в которых запрещены древним законом. В последней строке находится любимая питонами буква A (A ≠ Bi) при любом i).
Выходные данные
Выведите одну строку – результирующее имя питона.
Входные данные
Sample 1
james
m r t e
s
Sample 2
niishka
k i
1 2
h
Выходные данные
Sample 1
jasss
Sample 2
niishha
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.10.2015 20:49
- Информатика
- remove_red_eye 15062
- thumb_up 27
Ответы и объяснения 1
S = input()
B = input()
C = [int(i) for i in input().split()]
A = input()
for m in [i for i in set([j for j in range(len(S))]).difference(C)]:
if S[m] in B.split():S = S[:m] + A[0] + S[m+1:]
print(S)
_______________________________________________
// Pascal
Var
S:string[100];
B:string[50];
C:array[0..100] of byte;
A:char;
j,m:byte;
L:boolean;
Begin
ReadLn(S);
ReadLn(B);
j:=0;
Read(A);
While A #13 do
Begin
Read(C[j]);
C[j]:=C[j]+1;
j:=j+1;
Read(A);
End;
ReadLn();
Read(A);
For m:= 1 to Length(S) do
Begin
L:=true;
For j:= 0 to j do
if C[j] = m then L:=false;
if L then
if pos(S[m],B) 0 then S[m]:=A;
End;
WriteLn(S);
End.
- 23.10.2015 22:14
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.