Декодирование путем повторения символов

@Патрик Неадеква · Регистрация: 27.02.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте! Нужна помощь в написании программы на Паскале! Задание вот! Декодирование путем повторения символов. вводится m-нечетное число, задающее кратность повторения, а также последовательность двоичных символов, длина которой кратна m. если кратность нарушена, то последние символы последовательности игнорируются. в каждой комбинации из m символов путем сравнения числа нулей с числом единиц определяется результат декодирования (ноль или единица), который помещается в результирующую последовательность, выводимую на экран по окончании декодирования всей входной последовательности символов.

Добавлено через 1 минуту
Есть програ обратная этоей тоесть Кодирование!

Pascal

Var
n,q,z,i,m,x:integer;
a : array [1..100] of string; 
c:char;
 
begin
writeln('Введите m');
readln(m);
i:=1;
writeln('Введите последовательность двоичных чисел');
repeat
read(c);
a[i]:=c; inc(i);
until c=#13;
a[i-1]:=' ';
 
if m mod 2 = 0 then
writeln('Ошибка') else begin 
for n:=1 to i do begin q:=0;
while (q<>m)  do 
if (q<>m) then begin inc(q); write(a[n]); end;  
end;end;
writeln;
end.

Добавлено через 16 часов 26 минут
Хм... облазал весть инет не чего подходящего не нашел! Бяда!!!!!!

	12.05.2015, 10:03