Дизъюнкция ещё называется
Имеет вид a+b, a|b, a or b
Выражение истинно, если хотя бы одно из условий истинно
Таблица:
a b a+b
0 0 0
0 1 1
1 0 1
1 1 1
<span>var a: array[1..3,1..4] of integer;</span>
<span> i,j,s: integer;
</span><span>begin
</span><span> for i:=1 to 3 do
</span><span> begin
</span><span> write('строка ',i,': ');
</span><span> for j:=1 to 4 do read(a[i,j]);
</span><span> end;
</span><span>// вывод массива на экран
</span><span> writeln('массив а по строкам:');
</span><span> for i:=1 to 3 do
</span><span> begin
</span><span> for j:=1 to 4 do write(a[i,j]:4);
</span><span> writeln;
</span><span> end;
</span><span>// суммы элементов по строкам
</span><span> for i:=1 to 3 do
</span><span> begin
</span><span> s:=0;
</span><span> for j:=1 to 4 do s:=s+a[i,j];
</span><span> writeln('сумма элементов строки ',i,': ',s);
</span><span> end;
</span><span>end.
ввод - вывод
</span>строка 1: 10 11 12 13
<span>строка 2: 14 15 16 17
</span><span>строка 3: 18 19 20 21
</span><span>массив а по строкам:
</span><span> 10 11 12 13
</span><span> 14 15 16 17
</span><span> 18 19 20 21
</span><span>сумма элементов строки 1: 46
</span><span>сумма элементов строки 2: 62
</span><span>сумма элементов строки 3: 78
</span>
Первая программа
var x,s,z:integer;
begin
writeln('Введите целое число:');
readln(x);
z:=x;
while z <> 0 do begin
s:=s + z mod 10;
z:=z div 10;
end;
writeln('Сумма цифр числа ',x,' равна ',s);
end.
Вторая программа
var x,i,z,j,k,leng:integer;
a:array of integer;
begin
writeln('Введите целое число:');
readln(x);
z:=x;
while z <> 0 do begin
leng += 1;
z:=z div 10;
end;
SetLength(a,leng+1);
for i:=leng downto 1 do begin
a[i]:=x mod 10;
x:=x div 10;
end;
for i:=1 to leng do begin
for j:=i to leng-1 do begin
if(a[i] = a[j+1]) then
k += 1;
end;
end;
if(k > 0) then
writeln('Да')
else
writeln('Нет');
end.
Самая минимальная единица измерения это бит.
1 байт=8 бит
1. C
2. B
3. 11
4. B
5. D
6. D
7. B
8. A