Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Дано натуральное число. найти номер цифры 3 в нем, считая от конца

Ответ оставил Гость

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.