var
n, d, min: integer;
begin
read(n);
n := abs(n); // Если введено отрицательное
min := 10;
while n > 0 do
begin
d := n mod 10;
n := n div 10;
if d < min then
min := d;
end;
write(min);
end.
Водитель
машина (автомобиль)
движение
осязательное
машина завелась и они поехали на место назначение
Если у тебя знак ∨ то 1 будет во всех случаях в которых среди A и B есть хотя бы одна единица. Если же у тебя знак & то у тебя будет единица только в тех случаях когда и A и B равны единице
Var i, k,a1,a2,a3,b1,b2,b3: integer;
k:=0;
for i:=100000 to 999999 do
begin
a1:=i mod 100000;
a2:=i/10 mod 10000 ;
a3:=i/100 mod 1000;
b1:=i/1000 mod 100;
b2:=i/10000 mod 10;
b3:=i/100000 mod 1;
if ((a1+a2+a3=13) and (b1+b2+b3=13))
k:= k+1;
Var
i: integer;
p: int64; {В 4-байтовый integer не влезет}
begin
p := 1;
for i := 5 to 15 do p := p * i;
writeln(p);
end.
<span>Результат:
54486432000
</span>