Для пяти букв . алфавита заданы их двоичные коды (для некоторых букв - из двух символов, для некоторых - из трёх коды: a - 000, e - 001, m - 11, n - 01, 0 - 10. из четырёх полученных сообщений только одно без ошибки и может быть корректно декодировано. найдите его. 1) 01100010001100 2) 01100100011001 3) 01100100011101 4) 01100100011100

01100100011001 - NONAME
ответ: 2

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('>');
  var p:=s.Select((x,i)->(x,i+1)).Where(x->x[1].IsOdd and (x[0]=' '));
  Writeln('Число пробелов на начетных местах равно ',p.Count);
  foreach var t in p do s[t[1]]:='*';
  Writeln(s)
end.

Пример
> А роза упала на лапу Азора
Число пробелов на начетных местах равно 3
А роза*упала*на лапу*Азора

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('>');
  var n:=s.Length;
  if n mod 4<>0 then Writeln('Кол-во символов не кратно 4')
  else begin
    var i:=1;
    repeat
      Swap(s[i],s[i+3]);
      Swap(s[i+1],s[i+2]);
      i+=4
    until i>n;
    Writeln(s)
    end
end.

Пример
> карандаш
аракшадн

Var
a,b,j,v,c:string;
q: integer;

begin
writeln('Напишите своё имя');
readln(a);
writeln('Напишите дату рождения, год целиком');
readln(q);
q:=2016-q;
write(' - Привет,',a,'. ');
if q<7 then begin writeln('Ты уже пошел в детский сад?'); readln (' - ',b);
if (b='Да') or (b='да') then writeln ('Удачи!') else writeln (' - Пойди в Детский сад, там тебя обучат азам жизни. Удачи')  end; else if (7<q) and (q<17) then begin writln (' - Ты пошёл в школу?'); readln (' - ',c); if (c='Да') or (c='да') then begin writeln (' - В какую школу ты пошёл?'); readln (' - ',v); writeln (' - В каком ты классе?'); readln (' - ',j);end;
end.

Так можно продолжать бесконечно