'Задача #1
REM Организоывть массив и вывести на дисплей значение и индекс
REM предпоследнего положительного элемента
DIM A(1 TO 10) 'Массив из 10 элементов

J = 0 'Индекс предпоследнего положительного
K = 0 'Индекс последнего положительного

FOR I = 1 TO 10
        PRINT «Введите элемент массива А(»; I; ")";
        INPUT ":", A(I)
        IF A(I) > 0 THEN
                J = K
                K = I
        END IF
NEXT I

IF J <> 0 THEN
        PRINT «Предпоследний положительный элемент =»; A(J);
        PRINT «индекс =»; J
ELSE
        PRINT «Найдено меньше двух положительных элементов»
END IF

'Задача #2
REM Дано три числа. Если все три отрицательные, то вычислить и
REM напечатать куб второго числа, в противном случае произведение
REM двух первых чисел.

INPUT «Первое число:», A
INPUT «Второе число:», B
INPUT «Третье число:», C
IF A < 0 AND B < 0 AND C < 0 THEN
        PRINT «Куб второго числа =»; B * B * B
ELSE
        PRINT «Произведение двух первых чисел =»; A * B
END IF

Если я правильно понял формулу: X2*not(X3)+X1*X3+not(X2). Это ДНФ, чтобы привести к СДНФ нам надо чтобы в каждой из групп коньюнкций (умножений) присутствовали все литералы (переменные X1, X2 и X3). Таких групп у нас 3, недостающие переменные вставим в виде [X+not(X)], а потом раскроем скобки и немного упростим.

X2*not(X3)+X1*X3+not(X2) =

[X1+not(X1)]*X2*not(X3)+

X1*[X2+not(X2)]*X3+

[X1+not(X1)]*not(X2)*[X3+not(X3)]=

X1*X2*not(X3)+not(X1)*X2*not(X3)+

X1*X2*X3+X1*not(X2)*X3+

X1*not(X2)*X3+X1*not(X2)*not(X3)+not(X1)*not(X2)*X3+not(X1)*not(X2)*not(X3)

теперь найдём повторяющиеся группы (отметил одним цветом) и оставим одну из них по правилу X+X=X

В итоге получаем:

X1*X2*not(X3)+not(X1)*X2*not(X3)+X1*X2*X3+X1*not(X2)*X3+X1*not(X2)*not(X3)+not(X1)*not(X2)*X3+not(X1)*not(X2)*not(X3)

СДНФ больше ДНФ за счёт того что в ней обязаны присутствовать все литералы, но каждая из групп должна оставаться уникальной.

----------------НОМЕР ТРИ

program three;
var
a,b:real;
begin
write('Введите стоимость покупки: ');
readln(a);
write('Введите полученные деньги: ');
readln(b);

if (a=b) then writeln('Спасибо') else
if (a writeln('Недостаточно средств: ',a-b:0:2);

write('Нажмите ENTER для завершения');
readln

end.
 

фильт убирает знаки больше меньше, не могу нормально код запостить, скиньте почту что-ли?