Когда мы переписываемся, мы часто используем цифры в нашем тексте. Вам дано одно предложение на английском языке. Нужно найти все цифры, которые встречаются в этом предложений хотя бы один раз.
Ответы
Ответ дал:
0
Var
S : String;
m : Set of Char;
i : Byte;
Begin
m:=[];
Readln(S);
For i:=1 to Length(S) do If S[i] in ['0'..'9'] then Include(m,S[i]);
For i:=0 to 10 do If Chr(Ord('0')+i) in m then Write(i);
Writeln;
end.
S : String;
m : Set of Char;
i : Byte;
Begin
m:=[];
Readln(S);
For i:=1 to Length(S) do If S[i] in ['0'..'9'] then Include(m,S[i]);
For i:=0 to 10 do If Chr(Ord('0')+i) in m then Write(i);
Writeln;
end.
Ответ дал:
0
spasibo
Вас заинтересует
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад