Для пяти букв . алфавита заданы их двоичные коды (для некоторых букв - из двух символов, для некоторых - id802097420200816 от davo20051 16.08.2020 16:53

Question

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

davo20051 · Accepted Answer

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.

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

MOGZ ответил