PascalABC:
var a:array of real;
k,i,n:integer;
x:real;
begin
write('Задайте размер массива = ');readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
readln(a[i]);
if (i>0) and (k=0) and (x>a[i]) then k:=1;
x:=a[i];
end;
if k=1 then writeln('Элементы массива не являются возрастающей последовательностью')
else writeln('Элементы массива являются возрастающей последовательностью');
end.
65кбайт=532480бит
350*200*n=532480=>n=7,6
потом 2 возводишь в степень n равно примерно 194
Оцифровка звука<span> — технология поделенным временным шагом и последующей записи полученных значений в численном виде. Другое название</span>оцифровки звука<span> — аналогово-цифровое преобразование </span>звука<span>. </span>Оцифровка звука<span>включает в себя два процесса: процесс дискретизации (осуществление выборки) сигнала по времени</span>
5на 8 =40 это ответ на вопрос
Var
a,b,c,d:real;
begin
write('Введите A=');read(a);
write('Введите B=');read(b);
write('Введите C=');read(c);
D:=sqr(b)-4*a*c;
if D<0 then begin
writeln('D=',D,' ', 'Нет корней');end;
if D=0 then begin
writeln('D=',D,' ', 'x1=', -b/(2*a));end;
if D>0 then begin
writeln('D=',D,' ','x1=',(-b-sqrt(d))/(2*a));
writeln('D=',D,' ','x2=',(-b+sqrt(d))/(2*a));
end;
end.