Question

помогите с заданиями , срочно ​

Answer 1

9)

program open_s;

var

a,b,c,d:integer;

begin

if a>b then

begin

c:=1;

d:=2

end;

if a<=b then

begin

c:=3;

d:=4

end;

end.

10)

if 1<x<2 then

begin

x:=x+1;

y:=0

else

begin

x:=0;

y:=y+1

end;