Вопрос № 150469: Здравствуйте! пожалуйста помогите написать программу Задача: дано натуральное число, определить колличество цифр 3 в нём( Q -BASIC) Заранее спасибо!...
Вопрос № 150.469
Здравствуйте! пожалуйста помогите написать программу
Задача: дано натуральное число, определить колличество цифр 3 в нём( Q -BASIC)
Отвечает: megaloman
Здравствуйте, Кочеткова Анастасия! Решил Вашу задачу в Q-Basic двумя способами 1.
Код:
' Вариант 1. Последовательно делим исходное число на 10
CLS DIM M AS LONG ' Исходное число DIM AM AS LONG ' Модуль исходного числа DIM i AS LONG DIM K AS INTEGER
' Цифра, которую будем искать DIM N AS INTEGER ' В переменной получим количество искомых цифр K в числе M
K = 3
INPUT M ' Вводим исходное число
AM = ABS(M)
N = 0 ' В переменной N получим количество искомых цифр K в числе M
WHILE AM > 0 i = AM AM = INT(AM / 10) IF i - AM * 10 = K THEN N = N + 1 WEND
PRINT "Количество цифр "; K; " в числе "; M; &q
uot; ="; N
2.
Код:
' Вариант 2. Преобразуем исходное число в строку
CLS DIM M AS LONG ' Исходное число DIM AM AS STRING ' Строка из исходного числа DIM i, L AS INTEGER DIM K AS INTEGER ' Цифра, которую будем искать DIM
N AS INTEGER ' В переменной получим количество искомых цифр K в числе M
K = 3
INPUT M ' Вводим исходное число
AM = STR$(ABS(M)) L = LEN(AM)
N = 0 ' В переменной N получим количество искомых цифр K в числе M
FOR i = 1 TO L IF VAL(MID$(AM, i, 1)) = K THEN N = N + 1 NEXT
PRINT "Количество цифр "; K; " в числе "; M; " ="; N
При ответе использ
овал материалы Вопрос № 150367
--------- Нет времени на медленные танцы
Ответ отправил: megaloman (статус: Практикант)
Ответ отправлен: 13.11.2008, 23:46
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 235448 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Скажите "спасибо" эксперту, который помог Вам!
Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.
