QBasic / QuickBASIC1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 REM REM Контрольне обчислення REM 7 ^ 77 = 1.181 813 865 805 959 D + 65 REM DECLARE FUNCTION M! (I!) DECLARE FUNCTION ST $ (n!) DECLARE SUB Si7 () CLS DIM SHARED S AS STRING S = "49" FOR i = 1 TO 75 CALL Si7 NEXT PRINT S END FUNCTION M (i) M = VAL (MID $ (S, i, 1)) END FUNCTION SUB Si7 DIM t AS STRING FOR i = LEN (S) TO 1 STEP -1 a = 7 * M (i) + pb = a MOD 10 p = a \ 10 t = ST (b) + t NEXT IF p THEN S = ST (p) + t ELSE S = t END IF END SUB FUNCTION ST $ (n) ST = LTRIM $ (STR $ (n)) END FUNCTION
Обчислити суму елементів масиву А (а1, а2. An), значення яких по модулю лежать в заданому діапазоні від b до с (b Чи не працює програма або їй не відповідає опис. Повідомте будь ласка нам про це, заповнивши просту форму. Спасибі =) Зробити сайт краще
Пошук по розділу
Відгуки про виконану роботу
«Спасибі тобі велике :) завчасно зробив. відправив :) ще раз спасибі. буду завжди до тебе звертатися. »
"Велике дякую. все зробив, під час, якщо щось не зрозуміло, то пояснює, якщо є недоліки то виправляє, хороша людина, звертайтеся до нього, він допоможе і зробить вам як треба. ) »
"Велике вам дякую. швидко, якісно і професійно. »
«Спасибо) швидко, якісно і на максимум балів).»
«Величезне спасибі, допомогли у важку хвилину, швидко і якісно. Раджу всім звертатися сюди! »
«Спасибі величезне, дуже швидко допомогли).»
"велике дякую за допомогу))."