Ответы
Ответ дал:
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.
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.
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
9 лет назад
9 лет назад