а) Опечатка? Там просто Str, а не Str1 или Str2. В любом случае, функция возвращает длину строки, т.е. для Str1 k = 14, для Str2 k = 3
б) Возвращает 4 символа начиная с 5-го из строки Str1, s = 'su r'
в) Удаляет из Str1 4 символа начиная с 3-го, Str1 будет = 'v rodilas'
г) Вставляет Str2 в Str1 начиная с третьего сивола, Str2 не изменится, Str1 будет = 'v llesesu rodilas'
д) Возвращает позицию Str2 в Str1, n = 3
Ответ:
г)
Объяснение:
это DVI, больше не знаю, что сказать
1) А-Я (33 символа), символы русского алфавита
2) 36 согласных звуков: [б], [б'], [в], [в'], [г], [г'], [д], [д'], [ж], [з], [з'], [й'], [к], [к'], [л], [л'], [м], [м'], [н], [н'], [п], [п'], [р], [р'], [с], [с'], [т], [т'], [ф], [ф'], [х], [х'], [ц], [ч'], [ш], [щ']
6 гласных звуков: [а], [у], [о], [ы], [и], [э], звуковые фонемы русского языка
3) A-Z (26 символов), символы латинского алфавита
4) 0123456789, символы арабской записи цифр
5) аденин (А), гуанин (G), цитозин (С), тимин (T), азотистые основания участвующие в формировании дизоксирибонуклеиновой кислоты
6) 01, сигнал низкого и высокого напряжения используемый для передачи данных
Const
m = 10;
var
a: array[1..m+1] of integer;
i, k: integer;
begin
write ('Исходный массив: ');
for i := 1 to m do
begin
a[i] := random(100);
write (a[i],'; ');
end;
writeln;
write('Введите число: ');
readln(k);
for i:=m+1 downto 1 do
begin
a[i]:=a[i-1];
if a[i] mod 2=0 then
begin
a[i-1]:=k;
break;
end;
end;
write('Измененный массив: ');
for i := 1 to m+1 do
write (a[i],'; ');
<span>end.</span>
