PROGRAM B01;
CONST
max = 11;
TYPE
vector = array[1..max]of integer;
VAR
M, I, K:vector;
j:byte;
{ Массивы I,K предварительно реорганизовать следующим образом: на первом
месте, в данных массивах должен стоять элемент с минимальным значением}
procedure reorganize_vector(var vt:vector);
var i, j:byte;
min, tmp:integer;
begin
// вначале ищем минимальный элемент и запоминаем его место в массиве
j:=1;//
min:=vt[1];//назначаем наименьшим - первый элемент
for i:=2 to max do
if (min>vt[i]) then begin
min:=vt[i];
j:=i;//индекс наименьшего числа
end;
// теперь меняем местами первый элемент массива с наименьшим числом
tmp := vt[1];//запоминаем значение первого элемента
vt[1] := min;//меняем его на наименьший элемент
vt[j] := tmp;//на место наименьшего ставим значение из первого элемента
end;
// процедура для вывода массива на экран
procedure print_vector(var vt:vector);
var j:byte;
begin
for j:=1 to max do
write(vt[j]:6);
writeln(' ');
end;
BEGIN
writeln('Дано:');
//заполняем массивы случаынйми данными
randomize;
for j:=1 to max do begin
I[j]:=random(-128,127);
K[j]:=random(-128,127);
end;
//выводим их на экран
write('массив I[',max,']: ');
print_vector(I);
write('массив K[',max,']: ');
print_vector(K);
writeln(' ');
writeln('Реорганизовать массивы так, чтобы на первом месте ');
writeln('должен стоять элемент с минимальным значением');
reorganize_vector(I);
reorganize_vector(K);
write('массив I[',max,']: ');
print_vector(I);
write('массив K[',max,']: ');
print_vector(K);
writeln(' ');
writeln('Сформировать массив М[',max,'], элементы которого вычисляются');
writeln('по формуле M[j] = I[j] + K[j]');
for j:=1 to max do
M[j] := I[j] + K[j];
write('массив M[',max,']: ');
print_vector(M);
END.
1) потому что меняя масштаб растрового изображения, мы меняем количество пиклелей.
2) Потому что растровое изображение позволяет делать изображения большие по объёму
1) a*(a+b+c) = aa+ab+ac = a+ab+ac = a(1 + b + c) = a * 1 = a
2) a*b + ¬b + ¬a*b = b(a + ¬a) + ¬b = b * 1 + ¬b = b + ¬b =1
3) (¬a + b) * ¬c * (c + a * ¬b) = (¬a + b) * (¬c*c + a¬b¬c) =
(¬a + b) * a¬b¬c = ¬aa¬b¬c + ba¬b¬c = 0 + 0 = 0
4) (a+b)*(¬a+b)*(¬a + ¬b) = (¬aa+ab+¬ab+b)*(¬a + ¬b) =
(ab + ¬ab + b)*(¬a + ¬b) = b(a + ¬a + 1)*(¬a + ¬b) = b*(¬a + ¬b) =
¬ab + ¬bb = ¬ab
Program number;
var c, d,i:integer;
begin
writeln('Введите число');
readln(d);
writeln('Введите сколько раз вывести число');
readln(c);
for i:=1 to c do
write(d,' ');
end.
В 1 байте 8 бит, значит 4*8=32бита