обозначим счетчики переменными kp(+) и km(-), так же возьмем переменную j:integer для осуществления цикла, так же необходим сам массив пусть будет a:array[1..20] of integer, содержит 20 элементов целого типа, приступим к набору программы.
var
j,km,kp:integer;
a:array[1..20] of integer;
begin
km:=0;kp:=0; {обнулим счетчики}
randomize; {запустим службу генерирования случайных чисел}
for j:=1 to 20 do
begin
a[j]:=random(100)-50; {заполним массив случайными числами}
writeln(' a[',j,']= ',a[j]); {напечатаем его}
end;
{далее перейдем к поиску элементов}
for j := 1 to 20 do
begin
if a[j]<0 then km:=km+1;
if a[j]>0 then kp:=kp+1;
end;
write('pologitel''nix: ',kp,'otricatel''nix: ',km);
readln;
end.
Var a, b, c, d, h, i:integer;
begin
read (h);
write (1200*9.8*h);
end.
P.S. Благодарность не помешает.
Получится так:
3₅ = 3₁₀
30₅ =15₁₀
31₅ = 16₁₀
32₅ = 17₁₀
33₅ = 18₁₀
34₅ = 19₁₀
Ответ: 3, 15, 16,17, 18, 19
Во - первых рассмотрим простые высказывания:
М - Монитор неисправен
В - Видеокарта неисправна
О - Оперативная память неисправна
Во вторых: Запишем на языке алгебры логики возможные предположения: (M v B) --> O и M --> B
<span><span>Пусть </span><span>F</span><span>(М,В,О) = </span>(M v B) --> O и M --> B</span>
составляем таблицу истинности:
М В О M --> B
<span>0 0 0 1 </span>
<span>1 0 1 1</span>
<span> 0 0 0 1</span>
<span> 1 1 1 0 </span>
<span>0 0 0 1</span>
<span> 0 1 1 0</span>
<span> 1 1 0 0</span>
<span> 1 1 1 1</span>
<span> 1 0 0 0 </span>
<span>1 0 0 0</span>
<span> 0 1 1 1</span>
<span> 1 1 0 1</span>
<span> 0 1 1 0 </span>
<span>1 1 1 1</span>
<span>0 0 1 0 </span>
<span>1 1 0 1</span>
<span> 1 1 0 1</span>
<span> 1 0 1 1 </span>
Анализ таблицы показывает, что сложное высказывание истинно во всех случаях, когда М – истинно, т.е. вероятнее всего неисправен именно монитор.
110 (2)
12(8)=1010 (2) Складываем два двоичных числа , получаем ответ:10000(2)=20(8)=16(10)=10(16)