Вопрос по информатике:
Дано предложение. Замените в нем все слова s1 на слово s2.
Помогите пожалуйста на Free Pascal
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.03.2016 23:21
- Информатика
- remove_red_eye 6694
- thumb_up 33
Ответы и объяснения 1
Var p,s1,s2:string;
l,i:integer;
begin
writeln('Введите предложение:');
readln(p);
write('s1 = ');
readln(s1);
write('s2 = ');
readln(s2);
l:=length(s1);
i:=pos(s1,p);
while i0 do
begin
delete(p,i,l);
insert(s2,p,i);
i:=pos(s1,p);
end;
writeln(p);
end.
Пример:
Введите предложение:
Купили в магазине Резиновую Зину, Резиновую Зину В корзинке принесли.
s1 = Зину
s2 = Зою
Купили в магазине Резиновую Зою, Резиновую Зою В корзинке принесли.
- 06.03.2016 03:44
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.