Var b:array[1..10,1..3] of integer;
i,j,k,s,gi,bo:integer;
begin
writeln('Исходный массив: ');
for i:=1 to 10 do
for j:=2 to 3 do b[i,j]:=random(30);
k:=1;
for i:=1 to 10 do begin
for j:=1 to 3 do
b[i,1]:=k;
inc(k);
end;
for i:=1 to 10 do begin
for j:=1 to 3 do write(b[i,j]:5);
writeln;
end;
for i:=1 to 10 do
for j:=2 to 3 do
s:=s+b[i,j];
write(' Всего сотрудников в учреждении: ',s);
for i:=1 to 10 do
gi:=gi+b[i,2];
write(' Женщин в учреждении: ',gi);
for i:=1 to 10 do
bo:=bo+b[i,3];
write(' Мужчин в учреждении: ',bo);
if (gi>bo) then write(' женщин больше')
else write(' мужчин больше');
if (gi=bo) then write(' женщин и мужчин одинаковое количество');
<span>end.</span>
Систем может быть несколько чтобы в дальнейшем задать вопрос пользователю какую систему загрузить?
если системный диск указать то не получится изменить параметры загрузки системы
я бы так ответил
Таблица истинности во вложении.
Побеждает первый игрок. Например, первым ходом он увеличивает количество камней во второй куче в три раза
(1, 2) -> (1, 6)
Второй игрок может своим ходом получить пары куч (3, 6), (5, 6), (1, 10), (1, 18)
В любом из этих случаев первый игрок может выиграть следующим ходом
(3, 6) -> (3, 18), 3 + 18 >= 20
(5, 6) -> (5, 18), 5 + 18 >= 20
(1, 10) -> (1, 30), 1 + 30 >= 20
(1, 18) -> (1, 54), 1 + 54 >= 20