Program kod; Var q,w,e,r,t,y,u,i,x:integer; Begin write(q,w,e,r,t,y,u,i); if q=1 then x+(1*2*2*2*2*2*2*2); if q=0 then x+0; if w=1 then x+(1*2*2*2*2*2*2); if w:=0 then x+0; if e=1 then x+(1*2*2*2*2*2); if e=0 then x+0; if r=1 then x+(1*2*2*2*2); if r=0 then x+0; if t=1 then x+(1*2*2*2); if t=0 then x+0; if y=1 then x+(1*2*2); if y=0 then x+0; if u=1 then x+(1*2); if u=0 then x+0; if i=1 then x+(1*1); if i=0 then x+0; writeln('Код:'x); пишет встречено + а ожидалось ;
У вас так: if i=1 then x+(1*1) А надо: if i=1 then х:=x+(1*1)
спасиб
или может быть просто х:=1*1, в зависимости от условия задачи
нет прост шифр там один по инфе я сделал, спасиб огромное