Var s1,s2:string; i:integer; begin writeln('Введите строку:'); readln(s1); s2:=''; for i:=1 to length(s1) do if s1[i]='И' then s2:=s2+'ИИ' else s2:=s2+s1[i]; writeln(s2); end.
Пример: Введите строку: НАПИШИТЕ ПРОГРАММУ ДУБЛИРУЮЩУЮ СИМВОЛЫ НАПИИШИИТЕ ПРОГРАММУ ДУБЛИИРУЮЩУЮ СИИМВОЛЫ
Answers & Comments
Verified answer
Var s1,s2:string;i:integer;
begin
writeln('Введите строку:');
readln(s1);
s2:='';
for i:=1 to length(s1) do
if s1[i]='И' then s2:=s2+'ИИ' else s2:=s2+s1[i];
writeln(s2);
end.
Пример:
Введите строку:
НАПИШИТЕ ПРОГРАММУ ДУБЛИРУЮЩУЮ СИМВОЛЫ
НАПИИШИИТЕ ПРОГРАММУ ДУБЛИИРУЮЩУЮ СИИМВОЛЫ