Запишите програму по информатике вот так для program var begin write realn формула end . петрусь задумав число і нікому його не назвав. друзі упіймали його і примусили подвоїти задумане число, а потім додати до нього 5. і тільки після того, як вони пообіцяли петрусеві благодійну на контрольній з , він зізнався, що вийшло число n. визначте, яке число задумав і приховав від своїх друзів петрусь.

Var n: integer ; begin writeln('vvedite chislo  n'); read (n); n: =n-5 ; n: =n div 2; writeln ('zadumannoe chislo=',n); 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 ∈ q)) /\ ∈ а) \/ (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

Program  ilgiz98; var   i: integer; begin   writeln('*** alphaeus is ***');   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 ***');   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.