ПОмогите решить пожалуйста.

1. Какое из нижеприведённых предложений не является высказыванием?
а) все ученики нашей школы любят информатику.
б) Некоторые люди имеют голубые глаза.
в) Вы были вчера на выставке?
г) Завтра в нашем театре премьера.

2. Постройте таблицы истинности для следующих логических выражений:
a) A˄B˅C b) ¬A˅(B˄C)

3. Для какого из приведённых имён истинно высказывание:
НЕ (Первая буква гласная) И НЕ (Последняя буква согласная)?
1) Емеля 2) Иван 3) Михаил 4) Никита.

4. Определите, какие значения принимают выражения, если
А=1, В=0, С=0
А˅В˄С=
¬С˄А˅¬В=
А˅В˅¬С=
А˄¬С˅В=

var

a,b,c: real;

begin

readln(a,b,c);

writeln((a+b+c)/3);

end.

ну вроде "алгоритм" переходит в "терминал", хотя по буквам не получается - только последние 5 нормально встают и то, если в алфавите нет ё и й

тимофею

есть

кого

спросить

тему

var a: array[1..2,1..30] of integer; i,j: integer; begin      for i: = 1 to 30 do begin            writeln('введите номер ученика: ');             read(a[1,i]);             writeln('введите оценку: ');             read(a[2,i]);       end;             for i: = 1 to 10 do begin        writeln(i: 2,' - ');             for j: = 1 to 30              if a[1,j]=i then                        write(a[2,i],' ');       end;                   readkey; end.