Логические союзы (связки), с которых в естественном языке строятся сложные высказывания. запишите соответствующие им логические операции, а так же их название: ; ; ; ; и только тогда ;

dim s as integer, sum as single

s = 44

if s mod 2 = 1 then

sum = sin(s * 3.14 / 180) + cos(s * 3.14 / 180)

else

sum = abs(s)

end if

msgbox sum

' 3

dim s as integer, sum as integer, i as integer, j as integer

  do while i < 21

  sum = sum + j

cells(i + 1, 1) = i

cells(i + 1, 2) = j

cells(i + 1, 3) = sum

i = i + 1

j = j + 3

loop

' 4

dim x as integer, sum as single, i as integer, n as integer

x = 30

n = cint(inputbox("введите n"))

for i = 1 to n

sum = sum + sin(i * x * 3.14 / 180)

next i

msgbox sum

var a: string;

i,n,j,k,x,z,y: integer; d: boolean;

begin

readln(n);

read(a);

d: =false;

if (n=1)and (a='8') then d: =true;

if n=2 then begin

x: =ord(a[1]) - 48;

y: =ord(a[2]) - 48;

if((x*10+y) mod 8=0) or

  ((y*10+x) mod 8=0) then d: =true;

end

else

begin

for i: =1 to n-2 do

for j: =i+1 to n-1 do

for k: =i+2 to n do

begin

x: =ord(a[i])-48;

y: =ord(a[j])-48;

z: =ord(a[k])-48;

if((x*4+y*2+z) mod 8=0) or

  ((y*4+x*2+z) mod 8=0) or

  ((y*4+z*2+x) mod 8=0) or

  ((x*4+z*2+y) mod 8=0) or

  ((z*4+y*2+x) mod 8=0) or

  ((z*4+x*2+y) mod 8=0) then d: =true;

  end; end;

  if d then write('yes') else write('no');

  end.