Задать вопрос
26 августа, 14:25

Дана строка

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

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

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

+3
Ответы (1)
  1. 26 августа, 15:25
    0
    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: = 'крутость сырость сухость' ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы