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

Ответы 2

  • Переменная bug не нужна, просто инициализировал её на случай, если придётся переводить обратно.
  • 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;   //длина строки-позиция тройки+1delete(s,pos('3',s),1); //удаляем 3 из строки чтобы можно было проверить след.writeln(m);end;end.
    • Автор:

      jewelwuw1
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years