Переменная "c" после выполнения этого кода будет: 32
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
В следующий раз внимательно смотрите за переменными и что вы им присваиваете и желательно вам разобратся в типах данных, это основы основ.
Var
n,i,j,k:integer;
a:array[1..3] of integer;
begin
Randomize;
n:=Random(900)+100;
Writeln(n);
a[1]:=n div 100;
a[2]:=(n div 10) mod 10;
a[3]:=n mod 10;
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i]<a[j] then begin k:=a[i]; a[i]:=a[j]; a[j]:=k end;
Writeln(a[1],' ',a[2],' ',a[3]);
end.
Пример работы
658
8 6 5
Program chisla;
var a:integer;
begin
writeln('Введите четырехзначное число ');
readln(a);
if (a>=1000) and (a<=9999) then
begin
a:=(a div 1000)+((a div 100) mod 10)+((a div 10) mod 10)+(a mod 10);
writeln('Сумма цифр этого числа: ',a);
end
else writeln('Это не четырехзначное число');
end.