Var i.n:integer;
begin
readln(n);
for i:=1 to n do
writeln(i*i);
end.
Название файла и его расширение, т.е. example.exe
Информационный процесс - это процесс,связанный с получением,хранением,обработкой и передачей информации в живой природе,обществе,технике
2 мб равно 2048 кб
2048 разделить на 64 будет 32
Измените тип переменных n и k на integer:
function Xfact(o: integer): integer;
var
factorial: longint;
i: integer;
begin
write('o = ');
readln(o);
factorial := 1;
for i := 2 to o do
factorial := factorial * i;
end;
var
c: real;
n,k:integer;
begin
writeln('Введите число n: ');
readln(n);
writeln('Введите число k: ');
readln(k);
c := Xfact(n) / Xfact(n - k) * Xfact(k);
writeln('C = ', c);
end.