//pascalabc v3.1
var s: string;
procedure repall(var s: string; wold, wnew: string);
var res: string;
p, len: integer;
begin
len: = length(wold);
res: = '';
while length(s) > 0 do begin
p: = pos(wold, s);
if p = 0 then begin res: = res + s; break; end;
if p > 1 then res: = res + copy(s,1,p-1);
res: = res + wnew;
if p+len > length(s) then
s: = ''
else s: = copy(s,p+len,length(s));
end;
s: = res
end;
begin
readln(s);
repall(s, 'со', 'ту');
writeln(s)
end.
тестовое решение:
сок сок сок кок пок
тук тук тук кок пок
Поделитесь своими знаниями, ответьте на вопрос:
Что означает, какую операцию выполняет значок" < > " в информатике, а точнее в паскале? например в "b< > 4 do"
этот значок означает "не равно", например
if b< > 4 do
значит: "если b не равно 4, "