Дана строка

s1: = ' крутой сырой сухой'

Получить строку

s2: = 'крутость сырость сухость'

Question

Информатика

Людуся

26 августа, 14:25

Дана строка

s1: = ' крутой сырой сухой'

Получить строку

s2: = 'крутость сырость сухость'

+1

Ответы (1)

Знаете ответ на вопрос?

Деня · Answer 1

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.

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

Дана строка

s1: = ' крутой сырой сухой'

Получить строку

s2: = 'крутость сырость сухость'