Помогите пожалуйста. Срочно нужно!!!
Program kod;
uses crt;
var
sss,ss:string;
a:array[0..8] of integer;
slovo,s,p,j,i,d,m,s1,s2,s3:integer;
procedure dva;
begin
s1:=(a[1]+a[3]+a[5]+a[7]) mod 2;
s2:=(a[2]+a[3]+a[6]+a[7]) mod 2;
s3:=(a[4]+a[5]+a[6]+a[7]) mod 2;
if (s1=1) or (s2=1) or (s3=1) then
begin
s:=s1+s2*2+s3*4;
writeln('oshibka dopushena v pozitcii nomer ',s)
end
else
writeln('oshibok net');
end;
BEGIN
clrscr;
slovo:=1;
writeln('vvedite posledovatelnost is 0 i 1');
readln(ss);
p:=1;
while (p+6)<=length(ss) do
begin
j:=p;
for i:=j to j+6 do
begin
val(ss,d,m);
a:=d;
p:=p+7;
end;
while length(ss)>=7 do
begin
i:=0;
sss:=copy(ss,1,7);
delete(ss,1,7);
writeln('dlya ',slovo,'slova:',sss);
slovo:=slovo+1;
dva;
readln;
end;
end;
end
|
|
|
|
С ЧЕМ ПОМОЧЬ?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
