Важная информация
Показано с 1 по 2 из 2

Тема: помогите пожалуйста с задачей

  1. #1 помогите пожалуйста с задачей 
    Новичок
    Регистрация
    01.12.2013
    Сообщений
    2
    Сказал(а) спасибо
    1
    Поблагодарили 0 раз(а) в 0 сообщениях
    задача: ввести целое число и найти сколько в нем цифр 9
    если можно,с блок-схемой
    Ответить с цитированием  
     

  2. #2  
    Новичок
    Регистрация
    14.04.2014
    Адрес
    Москва
    Сообщений
    7
    Сказал(а) спасибо
    0
    Поблагодарили 1 раз в 1 сообщении
    Досадно стало за тему... Решил написать программку, подсчитывающую
    количество цифр "9" в целом числе в десятичной (!) системе:

    #Lang "FB" ' режим FreeBASIC-совместимости
    Dim As Integer XI, LXS, IXS, S9
    Dim As String XS, X
    XI = 849219 ' число в виде целого
    XS = Str(XI) ' число в виде строки
    LXS = Len(XS)' количество символов в числе
    S9 = 0 ' пока символов "9" не обнаружено
    For IXS = 1 To LXS ' перебор всех символов
    X = MID$(XS, IXS, 1) ' выбрать один символ
    If X = "9" Then S9 = S9 + 1 ' если "9" увеличить счетчик
    Next IXS ' номер следующего символа
    Print S9 ' печать количества символов "9"
    Sleep

    Пожалуй, и блок-схема не нужна...
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Помогите пожалуйста
    от узбогойся в разделе Turbo Pascal
    Ответов: 1
    Последнее сообщение: 29.10.2013, 21:18
  2. Помогите пожалуйста
    от Ванька Улитин в разделе Общие вопросы программирования
    Ответов: 0
    Последнее сообщение: 29.07.2013, 07:33
  3. Ответов: 0
    Последнее сообщение: 01.07.2012, 22:03
  4. помогите пожалуйста
    от finer в разделе Turbo Pascal
    Ответов: 3
    Последнее сообщение: 14.06.2012, 16:10
  5. Помогите с программой пожалуйста
    от shemekeev в разделе Visual Basic
    Ответов: 3
    Последнее сообщение: 18.04.2012, 18:11
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •