<h3>PascalABC.NET 3.3, сборка 1627 от 27.01.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
procedure SortByInsert(a: array of integer);
// сортировка простыми вставками
begin
for var i := 1 to a.Length - 1 do
if a[i - 1] > a[i] then begin
var (p, j) := (a[i], i - 1);
while (j >= 0) and (a[j] > p) do
(a[j + 1], j) := (a[j], j - 1);
a[j + 1] := p
end
end;
begin
var a := ArrRandom(15, -50, 50); a.Println;
SortByInsert(a); a.Println
end.
<h2>Пример</h2><h3>-47 -37 -9 44 7 43 44 -10 5 -12 4 -24 7 21 -47</h3><h3>-47 -47 -37 -24 -12 -10 -9 4 5 7 7 21 43 44 44</h3>
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)]). Если что-то не понятно, в лс.
6 символов легкий ответ)))
Компьютер - сложная вычислительная техника, которая помогает человеку, упрощая процесс создания и хранения информации. Одна из главных составляющих компьютера - это системный блок, монитор, клавиатура и компьютерная мышь - без них никуда. Процессор отвечает за все процессы, происходящие в системе. Оперативная память осуществляет эти самые действия. Любители компьютерных игр не обойдутся без хорошей видеокарты, с её помощью повышается графика, за которую так же отвечает монитор и графический драйвер. Материнская плата тоже неотъемлемая часть ПК. Компьютеры- сложная и полезная техника.