Вот, добавьте текст сего отсюда как новый макрос в документ:)
<span>Альберт Дитрих; Карл Альберт; Дитрих Фридрих; Фридрих Карл.
</span>
Program vtor_bukva;
var
S: String;
begin
Writeln('введите исходное предложение: ');
Readln(s);
delete(s, pos(' ', s), 1);
write('Последняя буква второго слова=');
if pos(' ', s) <> 0 then write(s[pos(' ', s) - 1])
else write(s[length(s)]);
readln(s);
end.
Твоя программа выводит символ, стоящий перед ПЕРВЫМ пробелом. А нужно, чтобы выводила символ, стоящий перед вторым пробелом. Не стоит забывать, что второго пробела может и не быть. Так что, я удаляю первый пробел. А потом делаю проверку: есть ли ещё пробелы (if pos(' ', s) <> 0)? Если пробелы есть, то программа выводит букву, следующую перед вторым пробелом (или последнюю букву второго слова). Если пробелов нет (всего два слова в предложении было введено), то программа выводит последнюю букву (s[length(s)]). Если что-то не понятно, в лс.
Uses Crt;
Const
N = 13;
Var
A:array[1..N] of integer;
i,j,Min,B:integer;
Begin
ClrScr;
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(2*N+1)-N;
Write(' ',A[i])
End;
WriteLn;
Write('Отсортированный массив:');
For i:= 1 to N do
Begin
Min:=i;
For j:= i+1 to N do
if A[j] < A[Min] then Min:=j;
B:=A[i];
A[i]:=A[Min];
A[Min]:=B;
Write(' ',A[i])
End;
ReadLn
End.
Ответ:
Вариант Б быстрее на 2 с.
Объяснение:
5 Мбайт = 5×2²⁰ байт = 5×2²³ бит.
1) по варианту А.
Сжали вдвое, получили объем 5×2²² бит. Время передачи составит
(5×2²²) / 2²⁰ = 5×2² = 20 с.
Общее время 20 + 20 +2 = 42 с.
2) по варианту Б.
Время передачи (5×2²³) / 2²⁰ = 5×2³= 40 с.
Вариант Б быстрее на 2 с.