program p1;
var a: integer;
begin
a=(45/5*7)+(42/7*9)-(7*1)
write(a)
end.
110
Решается обычным перебором
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 вариант. это БГВДА
Лучше и нагляднее все это расписать деревом, но тут как вам удобнее
Var k,m: Integer;
Dat: array[1..11] of integer;
begin
Dat[1]:=20;
Dat[2]:=25;
Dat[3]:=19;
Dat[4]:=25;
Dat[5]:=26;
Dat[6]:=22;
Dat[7]:=24;
Dat[8]:=28;
Dat[9]:=26;
Dat[10]:=21;
Dat[11]:=27;
m:=30;
for k:=1 to 11 do
if Dat[k] <m then
m:=Dat[k];
writeln(m);
end.
Ответ: 19.
111111+2>1111+8 6+16<101001-2 55-16<125-8
6.
a=10
b=30
a = (30 mod 7) div 2 = 2 div 2 = 1
Ответ: a = 1
7.
в)
8.
y = 5+5*1+5*2+5*3 = 5+5+10+15 = 35
Ответ: 35
9.
143 = 128+8+4+2+1 = 10001111(2)