Var Y: array [1..11] of integer;
var i, sum, n: integer;
begin
randomize;
for i:=1 to 11 do begin
Y[i]:=-10+random (21);
write (Y[i], ' ');
end;
sum:=0;
for i:=1 to 11 do begin
if (i mod 2<>0) and (Y[i]<0) then sum:=Y[i]+sum; //№1
if i mod 2<>0 then Y[i]:=Y[i]*Y[i]; //№2
if (i mod 2=0) and (Y[i]=1) then inc (n); //№3
end;
writeln;
writeln ('Сумма =', sum);
writeln ('Количество 1 на четных местах =', n);
<span>end.
</span>
<span> Техника - создание чертежей
наука - Создание моделей каких либо
реклама - создание изображений на банерах, плакатах
сфера развлечений - реклама какого либо развлечения
медицина - ренген
производство - создание чертежей, проектов планов
обучение - Создание каких либо чертежей, графических моделей</span>
1.
1) (x>-3) and (x<=10)
2) x<>0, y<>0
3) (x>=-10) and (x<0)
4) a mod 3<>0
2.
program koren;
var c, b, a:integer;
begin
write ('Введите 3 числа: ');
read (a);
read (b);
read (c);
if (a<b) and (a<c) then writeln ('наименьшее число - ',a)
else if (b<a) and (b<c) then writeln ('наименьшее число - ',b)
else writeln ('наименьшее число - ',c);
end.
var
x1, x2, x3:real;
begin
write('x1 = '); readln(x1);
write('x2 = '); readln(x2);
write('x3 = '); readln(x3);
if x1 < x2 then
if x1 < x3 then
writeln('минимальным является элемент х1 = ', x1)
else
writeln('минимальным является элемент х3 = ', x3)
else
if x2 < x3 then
writeln('минимальным является элемент х2 = ', x2)
else
writeln('минимальным является элемент х3 = ', x3);
end.
1) 16∧2x-1(бит)= 128(Гб)
128(Гб)=1099511627776 (бит)
16∧2x-1(бит)= 1099511627776 (бит)
16∧2x-1(бит)= 16∧10 (бит)
отсюда х= 5,5
2) 2000*4000=8000000 символов всего
1 символ=1 бит
8000000 бит : 8 =1000000 байт:1024= 976,5625 Кб:1024≈0,9 Мб