0.025 Гб = 0.025*1024 Мб = 0.025*1024*1024 кб = 0.025*1024*1024*1024 байт = 26843546 байт.
45000 Гц и 16 бит означают, что каждую секунду снимается 45000 значений амплитуды. каждое кодируется 16 битами = 2 байтами, таким образом объем одной секунды = 45000*2 = 90000 байт.
Посчитаем сколько секунд у нас в файле:
26843546/90000 = 298 секунд = 4 мин 58 сек
Немного не понятно с условиями последней задачи. Написал как понял. См. приложения
Убрать это предупреждение невозможно.
PascalABC.NET 3.2 - это современная версия языка, а практически
в любом современном языке программирования параметр цикла описывается в
заголовке цикла (и тем самым локализуется в этом цикле).
По утверждению разработчиков (ЮФУ), через какое-то время вариант с использованием в качестве параметра цикла внешних переменных вообще будет запрещен.
699 в десятичной равно 1010111011 в двоичной
Var x, y, a, nod:integer;
nok:real;
begin
readln(x,y);
a:=x*y;
repeat if x > y then x:=x mod y
else y:=y mod x
until x*y=0;
nod:=x+y;
writeln(nod);
nok:=a/nod;
writeln(nok);
end.