А) (7>9) and (1>7) = false and false = false
b) ((5<8) or (4>3)) and (11<5) = (true or true) and false = false
Подпрограмму
procedure rez(x,y:real):real;
begin
... rez=xxxxxx'
end;
redln(y);
z:=rez(x,y);
writeln(z);
.....
Var
N:integer;
procedure Change(var n);
var
n2,n3,i:integer;
begin
i:=1;
n2:=n;
n:=0;
while n2>0
begin
n3:=n2 mod 10;
n2:=n2 div 10;
n:=n*i + n3;
i:=i*10;
end;
end;
begin
readln(N);
Change(N);
writeln(N);
end.
Флешку можно хранить где угодно, лишь бы место надежным было.
8 кГц - это 8000 отсчетов в секунду. На каждый отсчет нужно:
- 24/8=3 байта для кодирования амплитуды;
- двойной размер, потому что каналов записи 2.
Итого 6 байтов на отчет. Тогда для записи одной секунды понадобится 8000*6=48000 байт.
За 4 минуты этот составит 4*60*48000 байт или 4*60*48000/1024²=10.99 (Мб)