Ответ:
1.
<em>var s: string;
</em>
<em>
</em>
<em>begin
</em>
<em>write('Введите слово: ');
</em>
<em>readln(s);
</em>
<em>while (s<>'хватит') do
</em>
<em> begin
</em>
<em> writeln(s+'!');
</em>
<em> write('Введите слово: ');
</em>
<em> readln(s);
</em>
<em> end;
</em>
<em> writeln('До следующих встреч');
</em>
<em>end.
</em>
<em />
2.
<em>var i,n,max,min: integer;
</em>
<em>
</em>
<em>begin
</em>
<em>randomize();
</em>
<em>n:=random(201)-100;
</em>
<em>max:=n;
</em>
<em>min:=n;
</em>
<em>write(n,' ');
</em>
<em>For i:= 2 to 20 do
</em>
<em> begin
</em>
<em> n:=random(201)-100;
</em>
<em> write(n,' ');
</em>
<em> if (n>max) then max:=n;
</em>
<em> if (n<min) then min:=n;
</em>
<em> end;
</em>
<em>writeln('Наибольшее число: ',max);
</em>
<em>writeln('Наименьшее число: ',min);
</em>
<em>end.
</em>
Var i,s: integer;
begin
i:=30; s:=0;
repeat
s:=s+i;
i:=i+5;
until i>60;
writeln('сумма = ',s);
<span>end.
</span>
1.Объем памяти звукового файла можно посчитать по формуле:V=t*s*i, где t- время (в сек.), s- амплитуда (Гц или 1/сек.), i - информационный объем (бит)
V= 1*22000*16= 352000бит = 44000 байт = 42,97 Кбайт.
2.Определим глубину цвета i по формуле: n=2^i , где n - кол-во цветов 256=2^i i=8 бит/пиксель
Размер одного кадра будет равен произведению разрешения монитора на глубину цвета.
R= 1366*768*8= 8392704 бит
Но чтобы узнать какое кол-во памяти потребуется на 1 минуту фильма необходимо знать частоту кадров в секунду!( в условиях это не указано??)
Предположим частота 100Гц (или кадров в сек.)
Тогда объем фильма = размер одного кадра * время (в сек)* частоту =8392704*60*100 = 50356224000 бит = 6294528000 байт = 6147000 Кбайт = 6002,93Мбайт
1) (А или В)и((А или неВ)=(А и А) или (А и В) или ((А и (неВ))или((В и (неВ))=А или А и В или (А и неВ)=А(1 или В) или (А и неВ)=А или (А и неВ)=А(1 или неВ)=А
2) по закону де Моргана =не (неХ) и не(неУ)=Х и У =ХУ
// PascalABC.Net 3.0, сборка 1066
begin
var n:=ReadInteger('Количество элементов массива: ');
var a:=ArrRandom(n,-10,10);
Writeln('Исходный массив: ',a);
Writeln('Максимумов: ',a.Where(x->x=a.max).Count)
end.
<em><u>Тестовое решение:</u></em>
Количество элементов массива: 20
Исходный массив: [5,-4,-9,-5,-10,10,10,-9,1,-8,0,-6,0,6,-3,-10,-2,2,-9,10]
Максимумов: 3