Mam problem z tym programikiem nauczyciel kazał na napisac ten program aby liczył binarnie dodajac dwie tablice tylko ze jeżeli wyskakuje 1+1=2 to tego nie moze być powinno być 1+1=1 .Podpowiedział nam tylke że mamy wstawić gdzieś warunek if then tylko gdzie i jaki warunek …
Najprościej, choć mało wydajnie zamiast
BEGIN
a3_:=a1 +a2 ;_
…
END;
będzie
BEGIN
IF (a1_=1)AND(a2__=1) THEN_
a3_:=1_
ELSE
a3 :=a1 +a2_;_
…
END;