Ответы
Ответ дал:
0
var a: string;
i: integer;
begin
readln(a);
for i := 0 to length(a) do
if (a[i] = 'и') then a[i] := 'е';
writeln(a);
end.
Это на Pascal'е =)
i: integer;
begin
readln(a);
for i := 0 to length(a) do
if (a[i] = 'и') then a[i] := 'е';
writeln(a);
end.
Это на Pascal'е =)
Похожие вопросы
2 года назад
10 лет назад
10 лет назад
10 лет назад