Музыкальная запись выполнена в формате CDDA (частота дискретизации 44100 Гц, 16 бит, стерео) и имеет - id2089353120220518 от agzansardalina1 18.05.2022 21:33

Question

Информатика: Музыкальная запись выполнена в формате CDDA (частота дискретизации 44100 Гц, 16 бит, стерео) и имеет продолжительность 19 мин 20 cек. Сколько секунд займет передача этой записи по каналу с пропускной 16000 байт/сек? (ответ 6394,5 сек) напишите решение

agzansardalina1 · Accepted Answer

1)
procedure Insert(source: string; var s: string; index: integer);
Вставляет подстроку source в строку s с позиции indexprocedure Delete(var s: string; index, count: integer);
Удаляет из строки s count символов с позиции index

2)
var s:string; i,n,code:integer;
begin
write('Введите длинное число:');
readln(s);
for i:=1 to length(s) do
begin
val(s[i],n,code);
if code=0 then writeln(n);
end;
end.

Пример:
Введите длинное число:3456810285
3
4
5
6
8
1
0
2
8
5

Если не требуется выполнять арифметических действий с цифрами, то можно так:
var s:string; i:integer;
begin
write('Введите длинное число:');
readln(s);
for i:=1 to length(s) do writeln(s[i]);
end.

MOGZ ответил