1.
Program Program1;
Var
a:array [1..20] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 20 do
a[i]:=random(101);
k:=0;
for i:=1 to 20 do
begin
write(a[i],', ');
k:=k+a[i];
end;
Writeln('Сумма элементов массива: ',k);
end.
2.
Program Program2;
Var
a:array [1..20] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 20 do
a[i]:=random(101);
k:=0;
for i:=1 to 20 do
begin
write(a[i],', ');
inc(k);
end;
Writeln('Количество элементов массива: ',k);
end.
1024*512 = 524288 пикселей
256 кб(килобайт) = 2097152 кило бит
2097152 кило бит/524288 пикселей = 4 бита выделено на каждый пиксель.
4-ю битами можно закодировать 15 цветов. (1111(2) = 15(10) )
4 бита = 1111 (макс.возможно) = 15 градаций (вариантов) цветов на один пиксель.
Var i, a, b, t, d, n : integer;
x : array of integer;
begin
read(n);
SetLength(x, n + 1);
for i := 1 to n do
read(x[i]);
a := x[1];
for i := 2 to n do begin
b := x[i];
d := a * b;
while (b > 0) do begin
t := a;
a := b;
b := t mod b;
end;
a := d div a;
end;
writeln(a);
<span>end.</span>
1) (А или В)и((А или неВ)=(А и А) или (А и В) или ((А и (неВ))или((В и (неВ))=А или А и В или (А и неВ)=А(1 или В) или (А и неВ)=А или (А и неВ)=А(1 или неВ)=А
2) по закону де Моргана =не (неХ) и не(неУ)=Х и У =ХУ