Ответы
Ответ дал:
0
var
s1,s2:string;
i:integer;
begin
Write('Введите строку: '); Readln(s1);
s2:='';
for i:=Length(s1) downto 1 do
if s1[i]='Е' then s2:='ЕЕ'+s2
else s2:=s1[i]+s2;
Writeln('Результат: ',s2)
end.
Пример
Введите строку: ЧТО ЭТО ТАКОЕ ДЛИННОШЕЕЕ?
Результат: ЧТО ЭТО ТАКОЕЕ ДЛИННОШЕЕЕЕЕЕ?
s1,s2:string;
i:integer;
begin
Write('Введите строку: '); Readln(s1);
s2:='';
for i:=Length(s1) downto 1 do
if s1[i]='Е' then s2:='ЕЕ'+s2
else s2:=s1[i]+s2;
Writeln('Результат: ',s2)
end.
Пример
Введите строку: ЧТО ЭТО ТАКОЕ ДЛИННОШЕЕЕ?
Результат: ЧТО ЭТО ТАКОЕЕ ДЛИННОШЕЕЕЕЕЕ?
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад