Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.09.2015 04:36
- Информатика
- remove_red_eye 5189
- thumb_up 32
Ответы и объяснения 1
CLS
RANDOMIZE (TIMER)
DIM p AS LONG
p = 1
FOR i = 1 TO 10
a(i) = CINT(10 * RND + 11)
PRINT a(i);
IF a(i) < 14 THEN p = p * a(i)
NEXT i
PRINT "P="; p
DIM a(1 TO 10)
CLS
RANDOMIZE (TIMER)
k = 0
FOR i = 1 TO 10
a(i) = CINT(21 * RND - 11)
PRINT a(i);
IF a(i) >= -3 AND a(i) <= 3 THEN k = k + 1
NEXT i
PRINT "k="; k
DIM a(1 TO 10)
CLS
RANDOMIZE (TIMER)
s = 0
FOR i = 1 TO 10
a(i) = CINT(21 * RND - 11)
PRINT a(i);
IF a(i) < 0 AND i MOD 2 0 THEN s = s + a(i)
NEXT i
PRINT "s="; s
- 06.09.2015 07:30
- thumb_up 22
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.