Readln как и read вводит переменную командой read (x); также и readln (x); но перед этим надо в var внести переменную x
Количество каналов = 1 канал
Информационный объем файла = 5,25 Мбайт = 5,25 * 1024 * 1024 байт
Звуковая глубина = 16 бит = 2 байта
Частота дискретизации = 22,05 КГц = 22050 Гц
Время звучания -?
Информационный объем файла = Количество каналов * Время звучания * Частота Дискретизации * Звуковая Гулубина
Время звучания = Информационный объем файла / (Количество каналов * Частота Дискретизации * Звуковая Гулубина) = 5,25 * 1024 *1024 / (1* 22050 * 2 ) = 125 c (с округлением до целого значения)
Var a,b,k:integer;
begin
readln(a,b);
k:=0;
while a*b<>0 do begin
if a>b then a:=a-b else b:=b-a;
k:=k+1;
end;
writeln(k);
end.
Пример:
4200 9126
22