Шифрование
uses crt;
var s:string;
a:array[1..20] of integer;
i,count:byte;
begin
clrscr;
writeln('Vvedite posledovatelnost:');
readln(s);
count:=0;
for i:=1 to length(s) do
begin
if s = '1' then
begin
a[count+1]:=1;
a[count+2]:=1;
a[count+3]:=1;
count:=i+3;
end
else
begin
a[count+1]:=0;
count:=count+1;
end;
end;
writeln('Zashifrovannaya posledovatelnost:');
writeln('count = ',count);
for i:=1 to count do
write(a);
writeln;
readln;
end.
Пример неправильной работы приводите сразу
Код:
count:=i+3;
надо
Код:
count:=count+3;
Цитата: koodeer
Если не ошибаюсь, вместо
надо
Код:
count:=i+3;
надо
Код:
count:=count+3;
ага. а так вроде все правильно. Я про алгоритм. синтаксис паскаля уже не помню
спс всем. Задача уже решена!