Только приветствие , ничего больше не несет
44.1 Кгц=44100 гц
5 мин=300сек
44100*16*300=216680000бит/8=26460000 байт/1024=25839,84 Кб/1024=25,23 Мб
Не совсем понял смысл, но вот:
procedure TForm1.Button1Click(Sender: TObject);
var
i, s: integer;
begin
for i := 0 to (StrToInt(Edit1.Text) - 1) do
begin
if (s > StrToInt(Edit2.Text)) then break;
s := s + StrToInt(Memo1.Lines[i]);
end;
Memo2.Text := IntToStr(s);
end;
Эта штука суммирует числа из Memo1 (числа в строках), пока количество суммируемых не превысит N, либо их сумма не превысит M, либо числа не кончатся
128000 бит/с = 128000/8 байт/с= 16000байт/с ;
500Кбайт=500*1024 байт=512000байт
512000/16000= 32
Ответ. б) 32 с
Var a,c1,c2 integer;
b: bool;
begin
b:=true;
writeln("Введите четырехзначное число ");
readln(a);
c1:=a mod 10;
a:=a div 10;
while(a>0) do begin
c2:=a mod 10;
a:=a div 10;
if c1 <> c2 then
b:= false;
end;
if b=true then writeln("Все цифры данного числа равны")
else writeln("Цифры данного числа различны");
end.