Сам подумай,или начерти на листочке и все поймешь!
var
a,n,min:integer;
begin
readln(a);
n:=1;
min:=100;
if (a mod 3 <>0) or (a=0) then
begin
writeln('Net par');
exit;
end
else
begin
n:=a;
repeat
readln(a);
if a mod 3 <> 0 then break;
n:=n*a;
if (n<min) then min:=n;
n:=a;
until (a mod 3 <> 0) or (a=0);
end;
writeln;
if min = 100 then writeln('Net par') else
writeln(Min);
end.
Немного не понял вопроса, но если составные условия, то наверное имеется ввиду AND(и), OR(или), XOR(исключающее или).
and работает если все условия правдивы
if (a=5) and (a*a/a=5) do ...
or работает если одно и более условий верны
if(a=5) or (a=3) do ...
xor работает если ТОЛЬКО ОДНО условие верно
if (a=5) xor (a=3) do ...
Команда 1:
Из числа 1 можно выполнить 2 команды, получится:
1) 1+2=3
2) 1*3=3
Команда 2:
C каждым полученным числом выполняем еще по 2 команды:
Первое число: 1) 3+2=5
2) 6*3=18
Второе число: 1) 3+2=5
2) 6*3=18
Команда 3:
У нас получилось 4 числа, проделаем то же самое
Первое число:
1) 5+2=7
2) 5*3=15
Второе число:
1)18+2=20
2)18*3=54
Третье число:
1) 5+2=7
2) 5*3=15
Четвертое число :
1)18+2=20
2)18*3=54
В итоге, у нас получилось 4 различных числа (так как при выполнении со второй командой, числа получались те же самые)