На 10 будет 8192000бит(дальше сам переведёшь) т.к 512000*на 16 сек
// PascalABC.NET 3.0, сборка 1088
begin
var s:=ReadString('Введите текст: ');
var MySet:=s.Where(x->x<>' ').Distinct;
Writeln(MySet)
end.
<em><u>Тестовое решение:</u></em>
Введите текст: this is a test string for my own needs
[t,h,i,s,a,e,r,n,g,f,o,m,y,w,d]
//Pascal ABC.NET Версия 2.2 Сборка 790
var a,i:integer;
s:string;begin;
readln(a);
str(a,s);
if length(s)<>3 then exit;
if pos('3',s)=0 thenbegin;
writeln('Nowhere');
exit;
end;
for i:=1 to length(s) do
if s[i]='3' then writeln(i);
<span>end.
</span>
Пример ввода:
123
Пример вывода:
3