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>
16 бит=2 байта....................
Вычисляем по формуле n^i отсюда следует, если информация несет 4 бита информации то n^4=270
4^4<n^4<5^4
Ответ: юношей 4
Const n=20;
var a:array[1..n] of integer;
i,k,m:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:3);
end;
writeln;
k:=0; m:=0;
for i:=1 to n-1 do
begin
if a[i+1]>a[i] then begin m:=m+1; end
else begin if m>0 then k:=k+1; m:=0; end;
end;
if m>0 then k:=k+1;
writeln('k = ',k);
end.
Пример:
Массив A:
7 30 22 0 17 4 2 32 39 26 23 41 1 38 47 21 38 31 43 7
k = 7
Кенгуру-в длину 6-10м,в высоту-до 3м
Тигр-4-5м
Долгоног-3-5м
Снежный барс-в высоту 3-4м
Антилопы,олени,зубр,страус -в высоту 2м
Озерная лягушка-в длину 1м
Зелёный кузнечик-в длину 2м