Procedure P(Const A:integer; Var p:integer); Var K:real; d:integer; Begin if A > 1 then if (A = 2)or(A = 3) then p:=p+1 else if A mod 2 <> 0 then Begin K:=Sqrt(A); d:=3; While (d<K)and(A mod d <> 0) do d:=d+2; if A mod d <> 0 then Begin p:=p+1; Write('(простое)') End End; End; Const N = 20; Var A:array[1..N] of integer; i,k:integer; Begin Randomize; k:=0; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(99)+1; Write(' ',A[i]); P(A[i],k); End; WriteLn; WriteLn('Кол-во простых чисел в массиве: ',k); End.
(НЕ (X >= 6) И НЕ (X = 5)) или (X <= 7) преобразуем выражение (( x< 6) и (x<> 5)) или (X <= 7) логическое сложение истинно когда хотя бы одна скобка выполняется Подставляем ответы в это выражение 5, 6, 7 дает истину ( достаточно подставить во вторую скобку X <= 7 ) 8 - в первой скобке даст ложь ( x< 6) и во второй (X <= 7) в итоге получается ложное выражение Точно также и для 9 ответ 4, 5 вариант ответа Числа 8 и 9
Для перевода необходимо умножить разряд числа на соответствующую ему степень разряда.
10101112 = 2в степени 6*1 + 2в степени5*0 + 2в степени4*1 + 2в степени3*0 + 2в степени2*1 + 2в степени1*1 + 2 в степени0*1 = 64 + 0 + 16 + 0 + 4 + 2 + 1 = 87
ответ: 10101112=87