Felix
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Держи. За длинный листинг не ругайтесь выложить негде 
1.
DIM i, j, k AS INTEGER
INPUT i, j, k
IF i < j THEN
IF i < k THEN PRINT i ELSE PRINT k
ELSE
IF j < k THEN PRINT j ELSE PRINT k
END IF
2.
DIM i, j AS INTEGER
j = 0
FOR i = 12 TO 100
IF (i MOD 2) = 0 THEN j = j + i
NEXT
PRINT j
или
j = 0
FOR i = 12 TO 100 STEP 2
j = j + i
NEXT
PRINT j
3.
DIM i, j AS INTEGER
j = 0
FOR i = 5 TO 10
j = j + i ^ 3
NEXT
PRINT j
4.
DIM x, y AS INTEGER
y = 0
FOR x = 1 TO 10 STEP .5
y = ((2 * x) ^ 3) / 10
PRINT y
NEXT
6.
DIM i AS INTEGER
FOR i = 1 TO 15
PRINT 2 ^ i
NEXT
З.Ы. По поводу 5 надо подумать как красивее сделать. А про 7 надо уточнить...
Тряхнул стариной... он чуть не отвалился  |
