По русской народной сказке "Гуси-лебеди" составить алгоритм с ветвлениями

1. c) Информационное пространство - это все, откуда пользователь может хотя бы что-то прочитать
2.  с). Во-первых, частота измеряется в герцах, а не в каких-то битах или байтах - это мы знаем еще из физики. Во-вторых, дискретизация - это пересчет уровня сигнала в некие фиксированные уровни, т.е. он связан с измерением величины сигнала.
3. б) Есть понятие "иерархическая файловая система", когда файлы одного уровня "вкладываются" в папку вышележащего уровня и это вложение многократно повторяется. Ближе всего к этому понятию ответ б)
4. д) Управление связано с передачей информации управляемому объекту. Но чтобы управлять, надо получать от этого объекта информацию и каким-то образом её обрабатывать, принимая некоторые решения. Хранить эту информацию надо лишь короткое время. Для примера: управление автомобилем. Водитель перед перекрестком смотрит по сторонам и принимает решение об управлении автомобилем. Но, проехав перекресток, он уже не думает о том, как его проезжал (если не брать в расчет присущие человеку эмоции).

program z_string; 
uses crt; 
const Letters = ['a'..'z','A'..'Z','а'..'я','А'..'Я']; 
var StringS, Symbol :string; 
     CounterI, Number:byte; 
begin

 clrscr; 
 writeln('Введите строку текста'); 
 readln(StringS); 
  
 Number := 0; 
 Symbol := ''; 
for CounterI := 1 to length(StringS) do 
 begin 
  if (StringS[CounterI] in Letters) and (Symbol = '') then 
   Symbol := StringS[CounterI]; 
    
  if (not(StringS[CounterI] in Letters)) and (CounterI <> 1) then 
  begin 
   if StringS[Counteri - 1] = Symbol then 
    inc(Number); 
   Symbol := '';
  end; 
   
  if (CounterI = length(StringS)) and (StringS[CounterI] = Symbol) then 
   inc(Number); 
 end; 
  
 writeln; 
 writeln('Количество слов начинающихся и заканчивающихся одной и той же буквой ', Number); 
 readln; 
end.

ахах тоже составляли такую,прикольная;)