готово. PascalABC
Объяснение:
program tri_chisla;
var n1, n2, n3: real;
begin
WriteLn('Ввод трех чисел и расположение их в убывающем порядке с заменой значений.');
Write('Введите значения n1, n2 и n3 через пробел >>> ');
ReadLn(n1, n2, n3);
if n1 < n2 then Swap(n1, n2);
if n2 < n3 then Swap(n2, n3);
if n1 < n2 then Swap(n1, n2);
WriteLn('n1=',n1,' n2=',n2,' n3=',n3);
end.
program func_L;
var
l: real;
x, y, z: integer;
begin
repeat
WriteLn('Введите значения x, y и z');
Write('Условие: (x-y-z) должно быть больше 0 >>');
ReadLn(x, y, z);
until (x - y - z) > 0;
l := x * y * z - ((abs(x)+abs(y)+abs(z))/(2 * sqrt(x - y - z)));
WriteLn('L = ', l);
end.
program chislo_a;
var
a: integer;
begin
Write('Введите число a >> ');
ReadLn(a);
if a >= 0 then WriteLn('Больше или равно нулю')
else WriteLn('Меньше нуля');
end.
2 000 Кбайт
Объяснение:
V = t * f * i * k, где
V - информационный объём аудио файла (размер файла, содержащего запись звука)
t - общая длительность звучания (секунды)
f - частота дискретизации (Гц, количество значений амплитуды звука, фиксируемых за одну секунду)
i - глубина звука (разрешение) (число бит, используемых для хранения каждого измеренного значения)
k - количество каналов записи (1 - моно, 2 - стерео и т.д.)
Дано:
t = 16 сек
i = 16 бит
f = 32 кГц = 32 000 Гц
k = 2
Найти:
V
V = 16 * 32 000 * 16 * 2 = 16 384 000 бит = 2 048 000 байт = 2 000 Кбайт
1 байт = 8 бит
1 Кбайт = 1024 байт
uses crt;
var a: array of integer; n, i: integer; begin
WriteLn('Введите N');ReadLn(n);
a := new integer[n];
randomize; //заполняем массив случайными значениямиfor i:=0 to n-1 dobegina[i]:=random(100)-50;Write(a[i]:5);end;Writeln;
for i:=0 to n-1 do //заменяем положительные элементы нулемbeginif a[i]>0 then a[i]:=0;Write (a[i]:5);end;writeln;readln;end.