В первой задаче находятся все 4-значные числа, а не только симметричные. Паскаль АВС.
Program Ilgiz98; var i: integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Программа находит 4-значные числа, которые делятся на 27'); writeln('Список таких чисел:'); for i:=1000 to 9999 do if (i mod 27)=0 then writeln(i); end.
Program Ilgiz98; var mass: array [1..20] of integer; i, k, n: integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Среди элементов массива программа находит числа, которые больше заданного числа N и одновременно кратны 5'); write('Введите число N '); readln (n); writeln('*** Вычисляю... ***'); k:=0; writeln('Массив чисел:'); for i:=1 to 20 do begin mass[i]:=random(1000)-500; writeln(mass[i]); if (mass[i]>n) and ((mass[i] mod 5)=0) then k:=k+1; end; writeln(); writeln('Всего найдено ',k,' таких чисел'); end.
1) ( (x ∈ P) /\ (x ∈ А)) → ( (x ∈ Q) /\ (x ∈ А)) = 1 -( (x ∈ P) /\ (x ∈ А)) \/ ( (x ∈ Q) /\ (x ∈ А)) = 1 (убрали стрелочку) -(x ∈ P) \/ -(x ∈ А) \/ ((x ∈ Q) /\ (x ∈ А)) = 1 (правило де Моргана) -(x ∈ P) \/ (-(x ∈ А) \/ (x ∈ Q)) /\ (-(x ∈ А) \/ (x ∈ А)) = 1 -(x ∈ P) \/ -(x ∈ А) \/ (x ∈ Q) = 1 x ∈ (-P U Q U -A) = 1 т.е. -P U Q U -A = (-infinity; +infinity) -P U Q = (-infinity; 39) U (58; +infinity) нужно чтоб -А покрыло оставшийся кусок [39; 58] т.е. А не должно содержать [39; 58] из предложенных это 1) [5, 20]
2) Алфавит из 18 символов, log(18)/log(2) = 4.16992500144231 {округляем до целого} ~= 5 бит на символ Вес номера байт = 5бит * 6 / 8 = 3.75 байт {округляем до целого} ~= 4 байт 400 * 4 байт = 1600 байт
3) Комбинаторика - Размещение с повторениями n - кол-во элементов в наборе (у нас 4) k - кол-во мест (у нас 5 и 6) Количество размещений с повторениями = `A(k,n) = n^k `A(5, 4) + `A(6, 4) = 4^5 + 4^6 = 5 120
