в решении задачи по информатике В файле хранится записанный звук. Данные не подвергались сжатию. Объём - id1178026520220214 от UAola 14.02.2022 10:48

Question

Информатика: в решении задачи по информатике В файле хранится записанный звук. Данные не подвергались сжатию. Объём файла равен 2 Мб. Известно, что запись производилась с частотой 24 кГц при разрядности квантования звука 16 бит. Определить время звучания при воспроизведении звука, хранящегося в файле. Если есть возможность, то нужно расписать эту задачу (дано, решение)

UAola · Accepted Answer

1. Для цикла For

var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
for i := 1 to N do
    p:=p*x;
writeln(x,' в степени ',n,' равно ',p );
end.

2. Для цикла While
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
while i<=n do begin
    p:=p*x;
    i:=i+1;
end;
writeln(x,' в степени ',n,' равно ',p );
end.

3. Для цикла Repeat

var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
repeat
    p:=p*x;
    i:=i+1;
until i>n;
writeln(x,' в степени ',n,' равно ',p );
end.

MOGZ ответил