Информатика

Емельяша

9 сентября, 15:16

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) ;

пишет встречено + а ожидалось;