Постройте таблицы истинности для следующих логических выражений: 1. (А&ВvC) v Ā & Ċ (тоже чёрточка сверху, над С 2. (В&А&С) v (B&Ā)

Первая (N - количество чисел в исходной последовательности):

const N = 5;
var number, i, count : integer;
begin
    count := 0;
    for i := 1 to N do
    begin
        write('Input number: ');
        readln(number);
        if (number mod 5 = 0) and (number mod 7 <> 0) then
            count := count + 1;
    end;
    writeln('Count: ',count);
    readln;
end.

Вторая:

const N = 5;
var number, i, count : integer;
begin
    count := 0;
    for i := 1 to N do
    begin
        write('Input number: ');
        readln(number);
        if (number < 0) then
            writeln('Square of ',number,' equals ',number*number);
    end;
    readln;
end.

Создание документа

CTRL+N

Открытие документа

CTRL+O

Закрытие документа

CTRL+W

Разделение окна документа

ALT+CTRL+S

Сохранение документа

CTRL+S

Завершение работы с Word

ALT+F4

Поиск текста, форматирования и специальных элементов

CTRL+F

Повтор поиска

ALT+CTRL+Y

Замена текста, форматирования и специальных элементов

CTRL+H

Переход к странице, закладке, сноске, таблице, примечанию, рисунку и т. п.

CTRL+G

Возврат к странице, закладке, сноске, таблице, примечанию, рисунку и т. п.

ALT+CTRL+Z

Прокрутка документа

ALT+CTRL+HOME

Прерывание действия

ESC

Отмена действия

CTRL+Z

Повтор действия

CTRL+Y

В режим разметки

ALT+CTRL+P

В режим структуры

ALT+CTRL+O

В обычный режим

ALT+CTRL+N