Решается обычным перебором
0 - нет
01 возможно Б, разделяем на 2 варианта
011 (Д) или Б 1
Д 0 | Б 10 (Г)
Д 01(Б) | Б Г 1 | Б 101 (101 не существует, значит отсекаем этот вариант)
ДБ 0 | Д 010 (также убираем) | БГ 10(Г)
ДБ 00 | БГГ 0 | БГ 100(В)
ДБ 000(А) |БГГ 00 | БГВ 0
ДБА 1 | БГГ 001(убираем) | БГВ 01(Б)
ДБА 11(убираем) | БГВБ 1 | БГВ 011(Д)
БГВБ 10(Г) | БГВД 0
осталось 2 цифры
БГВБГ 00( убираем) | БГВБ 1000(убираем) | БГВД 000(А)
следователь у нас остался только 1 вариант. это БГВДА
Лучше и нагляднее все это расписать деревом, но тут как вам удобнее
Const n=12;
a:array[1..n] of integer=(5,4,-3,1,0,-4,7,25,-8,-5,-17,-1);
var i:integer;
begin
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to n do
if a[i]<0 then a[i]:=1
else if a[i]>0 then a[i]:=-5;
for i:=1 to n do write(a[i]:4);
end.
Результат:
<span> 5 4 -3 1 0 -4 7 25 -8 -5 -17 -1
-5 -5 1 -5 0 1 -5 -5 1 1 1 1</span>
Вид семья хищных животных
1.Какие устройства ввода и вывода вы знаете?
2.Является ли камера устройством ввода?
3.Какие программы редактирования документов вы знаете?
4.Клавиатура считается устройством ввода?
5.Paint может редактировать документы?
6.World,Piant,Windows- что из них может редактировать?
Var n, i, sum1, sum2, buf: integer;
begin
writeln('Введите количество бросков');
readln(n);
sum1 := 0;
sum2 := 0;
i := 0;
for i := 1 to n do
begin
writeln('Введите значения на кубиках после броска № - ', i, ' на кубике человека по имени А ');
readln(buf);
sum1 := sum1 + buf;
end;
for i := 1 to n do
begin
writeln('Введите значения на кубиках после броска № - ', i, ' на кубике человека по имени B');
readln(buf);
sum2 := sum2 + buf;
end;
if sum1 = sum2 then writeln('Ничья') else
if sum1 > sum2 then writeln('Победил человек по имени А')
else writeln('Победил человек по имени B');
<span>end.
Как то так ... </span>