Написать программу, которая запрашивает у пользователя номер дня недели и выводит одно из сообщений: «рабочий день», «суббота», «воскресенье», или «такого дня не существует».

pascal

 

program aa; var a : integer; beginwriteln('введите день недели'); read(a); if (a < 1) or (a> 7) then writeln('такого дня не существует'); if (a > 0) and (a< 6) then writeln('рабочий день'); if a=6 then writeln('суббота'); if a=7 then writeln('воскресенье'); end.

a            b            (А V B) ⋀ A

0            0                0

0            1                 0

1             0                 1

1             1                  1

a             b           ¬А ⋀ B V B

0            0                0

0            1                 1

1             0                0

1             1                 1

a             b               c                ¬(А V B) ⋀ C

0             0               0                       0

0             0               1                        1

0             1                0                       0

0             1                1                        0

1              0               0                       0

1              0               1                        0

1              1                0                       0

1              1                1                        0

Объяснение:

{1} const   n = 5; var   a: array [1..n] of integer;   i,k,x,l: integer;   t: boolean; begin   for i : = 1 to n do read(a[i]);   k : = 0;   for i : = 1 to n do   begin   t : = true;   x : = a[i]; if x < 0 then x : = -x;   l : = 1;   while l < = x do l : = l*2; l : = l div 2;   while t and (l > 1) do       begin       t : = x > = l;       if t then x : = x - l;       t : = t = (x mod 2 < > 0);       x : = x div 2;       l : = l div 4;       end;   if t then k : = k + 1   end;   write(k) end. {2} const   n = 10; var   a,d: array [1..n] of integer;   i,j,k: integer; begin   for i : = 1 to n do   a[i] : = 100 + random(900);   for i : = 1 to n do   begin   d[i] : = 0;   for j : = 1 to a[i] do       if a[i] mod j = 0 then       d[i] : = d[i] + 1;   end;   for i : = 1 to n-1 do   begin   k : = i;   for j : = i + 1 to n do       if d[j] < d[k] then k : = j;   j : = a[k];   a[k] : = a[i];   a[i] : = j;   j : = d[k];   d[k] : = d[i];   d[i] : = j;   end;   for i : = 1 to n do   write(a[i],' ') end. {3} const   n = 10;   l = 3; var   a: array [1..n] of integer;   m: array [1..l] of integer;   i,j,k: integer; begin   for i : = 1 to n do   begin   a[i] : = random(1001);   write(a[i],' ')   end;   writeln;   for i : = 1 to l do   m[i] : = -1;   for i : = 1 to n do   begin   j : = 1;   while j < = l do       begin       if (a[i] = m[j]) then j : = l else       if (a[i] < m[j]) or (m[j] = -1) then           begin           for k : = l downto j+1 do               m[k] : = m[k-1];           m[j] : = a[i];           j : = l           end;       j : = j + 1       end;   end;   for i : = 1 to l do   if m[i] < > -1 then write(m[i],' ') end.