Program kod; Var q,w,e,r,t,y,u,i,x:integer;Beginwrite(q,w,e,r,t,y,u,i);if q:=1 then

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


В чём ошибка? Пишет Встречено ':=', а ожидался оператор

Задать свой вопрос
1 ответ
:= значит "присвоить значение".
После if пишется логическое выражение, например, хgt;0 либо х=0 (но не х:=). 
После служебного слово then  обязан следовать оператор присваивания (:=), быстрее всего х:=x+(1*2*2*2*2*2*2*2) и т.д.
Сергей Ирых
Спасибо
Ксения Колымажнова
Program kod; Var q,w,e,r,t,y,u,i,x:integer;Beginwrite(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); 
Софья Мощнева
а сейчас в чём неувязка
Даша Цетенко
ой не то
София
Program kod; Var q,w,e,r,t,y,u,i,x:integer;Beginwrite(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);
Сульновер Степан
После then взгляни в моем ответ, что обязано быть
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт