Question

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

Answer 1

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