Ответы
Ответ дал:
0
Program Text;
var
s:string;
k:set of byte;
i: byte;
begin
readln(s);
k:=[0,1,2,3,4,5,6,7,8,9];
for i:=1 to length(s) do
if ord(s[i]) - 48 in k then
s[i]:='Ф';
write(s);
end.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад