1). <span>var mass:array[1..10] of integer;
2).
a := 3
b := 2;
b := 9 + 3 * 2; <------- 15, значение b изменилось
a := 15 / 5 * 3 <------- a = 9
</span>
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var s := ReadlnString;
var s1 := s.Where(t -> t in ['0'..'9']).Sorted.GroupBy(t -> t)
.Select(c -> (c.Key, c.Count)).OrderBy(t -> t[0]).ToArray;
var s2 := s1.Where(t -> t[1] > 1).Select(t -> t[0] * (t[1] div 2))
.JoinIntoString('').Replace('0', '');
var s3 := s1.Where(t -> t[1] = 1);
if s3.Count > 0 then s2 := s2 + s3.Select(t -> t[0]).First + s2.Inverse
else s2 := s2 + s2.Inverse;
s2.Println
end.
<h2>Пример</h2><h2>for i:=99921 downto 2</h2><h2>29192</h2>
Ответ:
Объяснение:
1)
ab¬b + ¬a ≡ ¬c
0 + ¬a ≡ ¬c
(¬¬a)¬¬c) + ¬a¬c
ac + ¬a¬c
2) z(a+b) → ¬a¬(bc)
¬( z(a+b)) + ¬a¬(bc)
¬(az+bz) + ¬a(¬b + ¬c)
¬(az) * ¬(bz) + ¬a¬b + ¬a¬c
(¬a + ¬z)(¬b + ¬z) + ¬a¬b + ¬a¬c
¬a¬b +¬a¬z + ¬b¬z + ¬z¬z + ¬a¬b + ¬a¬c
¬z(¬a + ¬b + 1) + ¬a(¬b + ¬b +¬c)
¬z + ¬a (¬b + ¬c)
¬a¬b + ¬a¬c + z
1800(Байты)*8(в 1 Байте 8 Битов)=14400(Битов)
14400(Биты):14400(Бит/с)=1(секунда)
Ответ:1 с