История создания интернета его тематика , проблематика и результаты

// PascalABC.Net

var vowel: set of char = ['а', 'у', 'о', 'ы', 'и', 'э', 'я', 'ю', 'ё', 'е'];

s, substr: string;

begin

  s := 'кот в сапогах';

  var words := s.Split(' ');

  for var i := 0 to words.length - 1 do

  begin

      for var j := 1 to words[i].Length do

          if words[i][j] in vowel then

          begin

              substr := Copy(words[i], 1, j-1);

              Delete(words[i], 1, j-1);

              words[i] += substr;

              break;

          end;

      words[i] += 'циус';

  end;

  writeln(words.JoinIntoString(' '));

end.

4. 23

5. 15

Объяснение:

4.

Построим граф по данным таблицы (смотри картинку)

Рассчитаем длину всех  путей из A в E через C

ACE = 4 + 20 = 24

ABCE = 2 + 2 + 20 = 24

ACBE = 4 + 2 + 18 = 24

ACBDE = 4 + 2+ 15 + 2 = 23

Кратчайший путь A в E через C равен 23

5.

Команды:

1) прибавь b

2) умножь на 2

Программа 11121 переводит 5 в 115

Распишем программу по командам (подставив начальное и конечные числа):

1) 5 + b

1) 5 + b + b

1) 5 + b + b + b

2) (5 + b + b + b) * 2

1) ((5 + b + b + b) * 2) + b = 115

Решим получившееся уравнение:

((5 + b + b + b) * 2) + b = 115

((5 + 3b) * 2) + b = 115

10 + 6b + b = 115

10 + 7b = 115

7b = 115 - 10

7b = 105

b = 105 / 7

b = 15

Проведем проверку (выполнив всю программу):

1) 5 + 15 = 20

1) 20 + 15 = 35

1) 35 + 15 = 50

2) 50 * 2 = 100

1) 100 + 15 = 115