Копилка

DIM Mon(100) AS INTEGER
DIM i AS INTEGER, M AS INTEGER
RANDOMIZE TIMER
DO UNTIL i = 101
M = INT(RND(1) * 51)
SELECT CASE M
CASE 1, 2, 3, 5, 10, 15, 20, 50
Mon(i) = M: i = i + 1
END SELECT
 
LOOP
FOR i = 0 TO 100
 PRINT Mon(i)
NEXT

DATA 1,2,3,5,10,15,20,50
CONST n = 100
DIM m(1 TO n) AS INTEGER, nom(1 TO 8) AS INTEGER
DIM i AS INTEGER, j AS INTEGER, n5 AS INTEGER, n50 AS INTEGER, s AS INTEGER
FOR i = 1 TO 8
    READ nom(i)
NEXT i
RANDOMIZE TIMER
FOR i = 1 TO n
    j = INT(RND * 8 + 1)
    m(i) = nom(j)
    SELECT CASE m(i)
        CASE 5: n5 = n5 + 1
        CASE 50: n50 = n50 + 1
    END SELECT
    s = s + m(i)
    PRINT m(i);
NEXT i
PRINT
PRINT "N5 = "; n5, "N50 ="; n50, "S = "; s

DIM Mon(100) AS INTEGER                          
DIM I AS INTEGER, M AS INTEGER          
    RANDOMIZE TIMER                                 
DO UNTIL i = 101                                             
M = INT(RND(i) * 51)                                      
    SELECT CASE M                                           
CASE 1, 2, 3, 5, 10, 15, 20, 50                         
    Mon(i) = M:  i = i + 1                                      
    END SELECT                                                 
                                                                              
LOOP                                                                   
FOR I = 0 TO 100                                               
   PRINT Mon(i)                                                   
  NEXT

50
1
3
20
5
5
20
2
10
50
3
3
15
50
50
50
10
20
2
2

CLS
DIM M(5)
DATA 1, 2, 3, 5, 10
PRINT “ Номинал монет:”
   FOR I = 1 TO 5
        READ M(i)
        PRINT M(i);
   NEXT i: PRINT
PRINT “ Ввод кол. монет номиналом: “
   INPUT “ Кол. монет номиналом  1: “, n
   INPUT “ Кол. монет номиналом  2: “, m       
   INPUT “ Кол. монет номиналом  3: “, k
   INPUT “ Кол. монет номиналом  5: “, l
   INPUT “ Кол. монет номиналом  10: “, p
   FOR I = 1 TO 5
S = n*M(1) + m*M(2) +  k*M(3) + l*M(4) + p*M(5)
   NEXT i
PRINT “ Общая сумма монет: “; S; “коп”

DIM Mon(100) AS INTEGER

SELECT CASE M                                           
    CASE 1, 2, 3, 5, 10, 15, 20, 50                         
    Mon(i) = M:  i = i + 1                                      
END SELECT

M = INT(RND(i) * 51)

Mon(i) = M:  i = i + 1

FOR I = 0 TO 100                                               
   PRINT Mon(i)                                                   
NEXT

   INPUT “ Кол. монет номиналом  1: “, n
   INPUT “ Кол. монет номиналом  2: “, m       
   INPUT “ Кол. монет номиналом  3: “, k
   INPUT “ Кол. монет номиналом  5: “, l
   INPUT “ Кол. монет номиналом  10: “, p

RANDOMIZE TIMER
DIM a(100)
FOR i=1 TO 100
DO 
a(i)=INT(RND(50))+1
LOOP UNTIL a(i)=1 OR a(i)=2 OR a(i)=3 OR a(i)=5 OR a(i)=10 OR a(i)=15 OR a(i)=20 OR a(i)=50
IF a(i)=5 THEN n5=n5+1
IF a(i)=50 THEN n50=n50+1
s=s+a(i)
NEXT
PRINT"n5=";n5;" n50=";n50;" s=";s

CLS
RANDOMIZE TIMER
DIM a(100)
   FOR I = 1 TO 100
DO
a(i) = INT(RND(50) + 1
LOOP UNTIL a(i) = 1  OR  a(i) = 2  OR  a(i) = 3  OR a(i) = 5
        OR a(i) = 10  OR a(i) = 15  OR  a(i) = 20  OR  a(i) = 50
IF a(i) = 5 THEN n5 = n5 + 1
IF a(i) = 50 THEN n50 = n 50 + 1
   s = s + a(i)
   NEXT i
PRINT “n5 = “; n5; “ n50 = “; n50; “ s = “; s

n5 = 0   n50 = 0   s = 100

a(i)=INT(RND*50)+1

CLS
RANDOMIZE TIMER
DIM a(100)
   FOR I = 1 TO 100
DO
a(i) = INT(RND * 50) + 1
LOOP UNTIL a(i) = 1  OR  a(i) = 2  OR  a(i) = 3  OR a(i) = 5
        OR a(i) = 10  OR a(i) = 15  OR  a(i) = 20  OR  a(i) = 50
IF a(i) = 5 THEN n5 = n5 + 1
IF a(i) = 50 THEN n50 = n 50 + 1
   s = s + a(i)
   NEXT i
PRINT “n5 = “; n5; “ n50 = “; n50; “ s = “; s

n5 = 13   n50 = 8    S = 1246

s=5*n5+50*n50