1. укажите предложения, которые не являются высказываниями.

□ в нашем городе есть музей.
□ некоторые пингвины живут на севере.
□ послушайте сообщение.
□ какой сегодня день?
□ дважды два равно пяти или лёд тает.
□ число 18 чётное и составное.
2. соберите домики из элементов: впишите в элементы нужные числа.

3. запишите каждое высказывание с букв и знаков логических операций:

1) 12 декабря отмечают день конституции рф или день народного единства.
2) число семнадцать нечётное и составное.
3) во время летних каникул все отдыхают и не ходят в школу.

4. вычислите:
(1 ∧ 0) ∧ (0 ∧ а) ∧ (1 ∧ 0) =
5. определите значения в столбце f, если известно, что

6. определите истинность высказывания
(x > 2) ∨ (x < 5) ∧ (x > 10) при x = 1.
7. пусть а = «вторая буква в слове гласная», в = «третья буква в слове согласная». найдите значение логического выражения    для слов:

а) мир;
б) мгла;
в) мяу.

​

program srednball;

var a,b,d : integer;

        c : real;

begin

    writeln (' vvedite balli, nabrannie sportsmenom po 3 vidam sporta');

    readln (d);

    readln (a);

    readln (b);

    c: =(a+b+d)/3;

    writeln (' srednii ball= ', c: 4: 2);

    readln;

end.

1.

program xxx;

var i, n : integer

begin

  writeln ('введите число n=');

  readln (n);

  writeln ('делители числа: ');

  for i: = 1 to n do

      if n mod i = 0 then writeln (i);

  readln

end.

1)

выравнивание информации за счет расположения ее в ячейках таблицы. с таблиц текст можно представлять в виде колонок выравнивание названий и полей формы расположение на web-странице текста и графических изображений по разным колонкам использование вложенных таблиц различного фона для отдельных частей страницы

2)чтобы создать таблицу, используют команду таблица > вставить таблицу. в открывшемся диалоговом окне указывают размер таблицы (в ячейках), а также дополнительные параметры, реализуемые как атрибуты соответствующих тегов. чтобы занести информацию в таблицу, следует установить курсор в нужную ячейку и начать ввод. при работе с ячейками таблицы можно применять любые команды форматирования.

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.