Var a,bug,m:integer; s:string; begin; readln(a); str(a,s); //переводим число в строку writeln('Result:'); while pos('3',s)<>0 do //пока 3 есть в строке выполнять begin; m:=length(s)-pos('3',s)+1; //длина строки-позиция тройки+1 delete(s,pos('3',s),1); //удаляем 3 из строки чтобы можно было проверить след. writeln(m); end; end.
s:string;
begin;
readln(a);
str(a,s); //переводим число в строку
writeln('Result:');
while pos('3',s)<>0 do //пока 3 есть в строке выполнять
begin;
m:=length(s)-pos('3',s)+1; //длина строки-позиция тройки+1
delete(s,pos('3',s),1); //удаляем 3 из строки чтобы можно было проверить след.
writeln(m);
end;
end.