• QBasic. Помогите решить, пожалуйста:
    1. Дан файл целых чисел. Вывести первый и последний элементы данного файла.
    2. Описать процедуру С(N, M), вычисляющую число сочетаний без повторений из N элементов по M.

Ответы 1

  • DIM A%CLSOPEN "ABC.txt" FOR INPUT AS #1INPUT #1, APRINT "Pervoe = ", AWHILE NOT (EOF(1))INPUT #1, AWENDPRINT "Poslednee = ", ACLOSE #1ENDПримечание: файл ABC.txt должен лежать в одной папке с программой.SUB CNM (N, M, C)C = 1FOR i = M-N+1 TO MC = C*iNEXT iFOR i = 1 TO NC = C/iNEXT iEND SUBCLSDIM C&, N%, M%N = 3M = 10CALL CNM(N, M, C)PRINT CEND
    • Автор:

      zara78
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years