Задача на QBasic.Найдите произведение чисел массива кратных числу K. - №5620995

Задача на QBasic.
Найдите произведение чисел массива кратных числу K.
- Предмет:
  Информатика
- Автор:
  t-dawg
- 5 лет назад

Ответы 1

DIM X(10)RANDOMIZE TIMERFOR I = 1 TO 10 X(I) = INT(RND(1) * 20) + 1 PRINT X(I); " ";NEXT IPRINTINPUT "Введите число"; KP = 1FOR I = 1 TO 10 IF X(I) MOD K = 0 THEN P = P * X(I)NEXT IIF P = 1 THEN PRINT "Кратных нет" ELSE PRINT "P ="; P
- Автор:
  cayleeli
- 5 лет назад
- 0
Добавить свой ответ

Еще вопросы

sin17пи/6 + cos14пи/3 - tg13пи/4
- Предмет:
  Алгебра
- Автор:
  estrellagarner
- 5 лет назад
- Ответов:
  
  0
- Смотреть
В воздухе объемом 5 куб. метров содержится 80 г. водяного пара. Определить абсолютную влажность.
- Предмет:
  Физика
- Автор:
  trey
- 5 лет назад
- Ответов:
  
  0
- Смотреть
составить таблицу на тему "реформы петра 1". туда входит промышленность,армия.флот государственное управление.церковь,просвещение,театр,обычаи и календарь.
- Предмет:
  История
- Автор:
  bunny rabbit
- 5 лет назад
- Ответов:
  
  1
- Смотреть
Найдите значение выражения 4x^2-y^2/4x^2+4xy+y^2. найдите его значение при x=6,5 y=7. В ответе запишите полученное число.
- Предмет:
  Алгебра
- Автор:
  felixpage
- 5 лет назад
- Ответов:
  
  1
- Смотреть

How much to ban the user?

1 hour 1 day 100 years