Входы для информации: - гнезда (разъёмы для перефирии)- CD-DVD-привод- Дискетки- Сканирование через принтер- Ввод с клавиатуры, клик мышкой на опр. знаках- запись с микрофона- из интернета Выходы:- Гнёзда для перефирии- печать- в интернет- монитора<span> т.д. </span>
DIM A%
CLS
OPEN "ABC.txt" FOR INPUT AS #1
INPUT #1, A
PRINT "Pervoe = ", A
WHILE NOT (EOF(1))
INPUT #1, A
WEND
PRINT "Poslednee = ", A
CLOSE #1
END
Примечание: файл ABC.txt должен лежать в одной папке с программой.
SUB CNM (N, M, C)
C = 1
FOR i = M-N+1 TO M
C = C*i
NEXT i
FOR i = 1 TO N
C = C/i
NEXT i
END SUB
CLS
DIM C&, N%, M%
N = 3
M = 10
CALL CNM(N, M, C)
PRINT C
END
На c++
#include <iostream>
#include <conio.h>
using namespace std;
int main()
{
int k;
cin >> k;
if (k >= 0)
{
k *= k;
cout << k << endl;
}
else
{
cout << k << "<0" << endl;
}
_getch();
return 0;}