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 calcul REM Controlul REM ^ 77 = 7 813 865 1181 805 959 65 D + REM DECLARE FUNCȚIE M! (I!) DECLAR FUNCȚIE ST $ (n!) DECLARĂ SUB Si7 () CLS DIM PARTAJAT S STRING S = "49", pentru i = 1 până la 75 APEL Si7 Imprimare S Încheiere M (i) M = VAL (MID $ (S, i, 1)) END FUNCȚIA SUB Si7 DIM t AS STRING FOR i = LEN (S) TO 1 PASUL -1 a = 7 * M (i) + = pb MOD 10 p = o \ t = 10 ST (b) + t URMĂTORUL IF p ATUNCI S = ST (p) + t ELSE S = t END IF END SUB FUNCȚIE ST $ (n) ST = ltrim $ (STR $ (n)) FUNCȚIE END
Calculați suma elementelor matricei A (a1, a2. O), valorile sunt în minciună absolută într-un interval predeterminat de la b la un (b nu este programul de lucrări sau nu se potrivește descrierii. Vă rugăm să ne dea despre acest lucru prin completarea unui formular simplu. Vă mulțumesc =) Marca site-ul este mai bun
Căutați în secțiune
Feedback asupra muncii depuse
"Mulțumesc foarte mult :) făcut prematur. trimis :) multumesc din nou. Mereu mă voi întoarce la tine.
"Vă mulțumesc foarte mult. totul făcut, la un moment dat, dacă ceva nu este clar, atunci explică dacă există deficiențe care se corectează, o persoană bună, îl contactează, o va ajuta și o va face corect. ) »
"Vă mulțumesc foarte mult. rapid, eficient și profesional ".
"Mulțumesc" rapid, calitativ și la maxim. "
Multe mulțumiri, ajutate într-un moment dificil, rapid și eficient. Îi sfătuiesc pe toți să vină aici! "
"Mulțumesc foarte mult, ați ajutat foarte repede".
"Multe mulțumiri pentru ajutor))".