Var x,n,k:integer;
<span>begin </span>
<span>k:=0; </span>
<span>writeln('Введите количество чисел в последовательности'); </span>
<span>readln(n); </span>
<span>writeln('Введите числа'); </span>
<span>while n>0 do begin </span>
<span>readln(x); </span>
<span>if x mod 3=0 then k:=k+1; </span>
<span>n:=n-1; </span>
<span>end; </span>
<span>writeln('Количество чисел четных 3 = ',k); </span>
<span>end.</span>
Ответ:
7. г) 7
8. а) 42
9. АГВБ
Объяснение:
7. ((X <= 7) ИЛИ (X < 12)) И (X > 6)
а) 4
((4 <= 7) ИЛИ (4 < 12)) И (4 > 6) = ((1) ИЛИ (1)) И (0) = (1) И (0) = 0 (ложно)
б) 5
((5 <= 7) ИЛИ (5 < 12)) И (5 > 6) = ((1) ИЛИ (1)) И (0) = (1) И (0) = 0 (ложно)
в) 6
((6 <= 7) ИЛИ (6 < 12)) И (6 > 6) = ((1) ИЛИ (1)) И (0) = (1) И (0) = 0 (ложно)
г) 7
((7 <= 7) ИЛИ (7 < 12)) И (7 > 6) = ((1) ИЛИ (1)) И (1) = (1) И (1) = 0 (истинно)
8. ((число < 35) ИЛИ НЕ (число чётное)) И (число делится на 7)
а) 42
((42 < 35) ИЛИ НЕ (42 чётное)) И (42 делится на 7) = (0 ИЛИ НЕ (1)) И (1) = (0 ИЛИ 0) И (1) = (0) И (1) = 0 (ложно)
б) 14
((14 < 35) ИЛИ НЕ (14 чётное)) И (14 делится на 7) = (1 ИЛИ НЕ (1)) И (1) = (1 ИЛИ 0) И (1) = (1) И (1) = 1 (истинно)
в) 21
((21 < 35) ИЛИ НЕ (21 чётное)) И (21 делится на 7) = (1 ИЛИ НЕ (0)) И (1) = (1 ИЛИ 1) И (1) = (1) И (1) = 1 (истинно)
г) 49
((49 < 35) ИЛИ НЕ (49 чётное)) И (49 делится на 7) = (0 ИЛИ НЕ (0)) И (1) = (0 ИЛИ 1) И (1) = (1) И (1) = 1 (истинно)
9. Чем больше & (И) тем меньше результат по запросу, чем больше | (ИЛИ) тем больше результат по запросу
АГВБ
Program test ;
Var
a:integer;
Begin
For i:=0 to 9 do begin
For i1:=0 to 9 do begin
For i2:=0 to 9 do begin
If (i<>i1) and (i1<>i2) and (i<>i2) then begin
writeln(" Комбинация введенная агентом 007 - ",i*100+i1*10+i2);
a:=a+2;
End;
End;
End;
Writeln(" В ХУДШЕМ случае он затратит на подбор пароля. ", a div 60,"мин. ",a mod 60,"сек. ") ;
End.
В паскале: Inc(n);
В С++: n++;
Решение показано в прилагаемом файле.
Ответ: 77