Ответы
Ответ дал:
0
var s:string;
i:integer;
BEGIN
readln(s);
for i:=1 to Length(s) do
if ((ord(s[i])>=1040) and (ord(s[i])<=1103)) or (ord(s[i])=1025) or (ord(s[i])=1105) then
s[i]:='.';
writeln(s);
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад