Во внутренней памяти запись и чтение информации производится по адресам.<span>
</span>
Program n1;
Uses CRT;
Var i,n,m: integer;
begin
ClrScr;
writeln('Vvedite n');
readln(n);
i:=1; m:=1;
while i<2*n-1 do
begin
i:= i+2;
m:= m*i;
end;
writeln(m);
readln
end.
ну если будит так то:
1 ход. первый берёт 3 яблока второй тоже 3.
2 ход. первый берёт 2 яблока второй 3.
3 ход. первый берёт 3 яблока второй 2.
и последний ход. первый берёт 3 яблока а второй проигрывает.
Уже было, смотрите приложение.
Код программы можно посмотреть Alt+F11
Var
i,j,s:integer;
a:array[1..10,1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(-10,10);
if (a[i,j]=0) and (i=j) then s:=s+1;
write(a[i,j]:3)
end;
writeln
end;
writeln('Число нулей на главной диагонали: ',s)
<span>end.</span>