1)
<span><span>procedure Insert(source: string; var s: string; index: integer);
Вставляет подстроку source в строку s с позиции index</span><span>procedure 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.</span></span>
Моно (1) * кодирование (16) * частота дискретезации (32 * 1000(гц)) * t(сек) = 625 * 2^13 бит
t=(625*2^13)/(1000*2^5*2^4)
t = 10 сек
Вроде так, если нигде не ошибся. Когда без калькулятора считаешь работай со степенями 2; и 1000 можно представлять как 2^10 = (1024), если есть варианты ответа, погрешность не большая
2^x*2^y=2^(x+y)
2^x/2^y=2^(x-y)
<span>описание движения тел, развития организмов, процесс химических реакций.</span>
построим таблицу истинности данного выражения
поскольку переменных две, то в таблице будет 4 строки
столбцов будет тоже два (2 переменные +2 операции)
А В НЕ(В) А ИЛИ НЕ (В)
0 0 1 1
0 1 0 0
1 0 1 1
1 1 0 1
ОТВЕТ количество наборов, при которых логическое выражение
А ИЛИ НЕ (В) будет истинным равно 3.