Дана строка s1:= ' крутой сырой сухой'Получить строку s2:= 'крутость сырость сухость'

Question

Дана строка s1:= ' крутой сырой сухой'Получить строку s2:= 'крутость сырость сухость'

Экономика

Дана строка s1:= ' крутой сырой сухой' Получить строку s2:= 'крутость сырость сухость'

Гость

Ответ(ы) на вопрос:

Accepted Answer

var i:integer;S1:string;S2:string; begin S1 := 'крутой сырой сухой'; i := Pos('крутой', S1); if i > 0 then Delete(s1, i, 5); Insert('крутость', S1, i); S2:= S1; writeln(S2); end.