Задание

Аватар пользователя Lekssa1

Дана числовая последовательность,состоящая из К элементов.Определить кол-во элементов кратных 7,и не кратных 5. (QBasic)

Lekssa1
  • Попросите больше объяснений
  • Следить
  • Отметить нарушение!
  • 8+4 б
  • Lekssa1

Хотите больше информации? Спросите!

Спросите Lekssa1 больше о вопросе...

Ответы и объяснения

Ответы и объяснения

1
Аватар пользователя ali07
Ali07 ответил

input k

k=0

for i = 1 to k

  input a

  if (mod(a, 7) = 0) and (div(a,5)<>5) then k=k+1

next i

print "колво эл-тов ="; k

end

  • Комментарии
  • Отметить нарушение!
  • Спасибо (1)
  • оценить

Комментарии

Введите Ваш комментарий к этому ответу здесь...