Что надо сжечь сделать напиши в то я не поняла ))
Program npow2;
var
n, i, s: integer;
begin
readln(n);
s := 0;
for i := 1 to n do
s := s + i * i;
writeln(s);
end.
A10=3*10^2+6*10^1+1*10^0+1*10^( -1 ) +0*10^( -2 )+5*10^( -3 )
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
1 мб=1024 кб
15*1024=15630 кб
затем пропорция:
15630 кб -2 мин
640. кб -х мин
х= 640*2/15630
х приблизительно равен 0.0818937 приблизительно равен 0.08 мин.
Но этот ответ не точный.