Pascal. Дана строка. Заменить каждый символ,встречающийся после первого вхождения '*' **...

Question

Pascal. Дана строка. Заменить каждый символ,встречающийся после первого вхождения '*' на '_'.

Comments

"Ма*ма ам* к*и*ина*" должно стать: "Ма_ма ам_ к_и_ина_"

Answer 1

I:integer;
s:string;
for i:=1 to length(s) do
begin
if s[i]='*' then s[i]:='_';
end;
вроде всё, программу сам оформляй