1. Составить таблицу истинности, выписать, для каких наборов значений простых высказываний формула принимает значение истина 2. С логики равносильных преобразований привести формулу к виду, когда используются только операции и отрицание над простыми высказываниями 3. Преобразовать выражение, используя законы алгебры логики
Задача 1 var s: string; i: integer; begin readln(s); for i:=2 to length(s)-2 do if (s[i-1]+s[i]+s[i+1]+s[i+2]=' не ') then s[i+1]:='и' else if ((s[i-1]+s[i]+s[i+1]='не ') and (i=2)) then s[i]:='и' else if ((s[i]+s[i+1]+s[i+2]=' не') and (i=length(s)-2)) then s[i+2]:='и'; write(s); end.
Задача 2 var s: string; i, k: integer; begin readln(s); for i:=2 to length(s)-1 do if s[i-1]+s[i]+s[i+1]=' в ' then inc(k) else if ((s[i-1]+s[i]='В ') or (s[i-1]+s[i]='в ')) and (i=2) then inc(k); write(k); end.
Program Ilgiz98; var i: integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Программа находит 4-значные числа, которые делятся на 27'); writeln('Список таких чисел:'); for i:=1000 to 9999 do if (i mod 27)=0 then writeln(i); end.
Program Ilgiz98; var mass: array [1..20] of integer; i, k, n: integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Среди элементов массива программа находит числа, которые больше заданного числа N и одновременно кратны 5'); write('Введите число N '); readln (n); writeln('*** Вычисляю... ***'); k:=0; writeln('Массив чисел:'); for i:=1 to 20 do begin mass[i]:=random(1000)-500; writeln(mass[i]); if (mass[i]>n) and ((mass[i] mod 5)=0) then k:=k+1; end; writeln(); writeln('Всего найдено ',k,' таких чисел'); end.
var
s: string;
i: integer;
begin
readln(s);
for i:=2 to length(s)-2 do
if (s[i-1]+s[i]+s[i+1]+s[i+2]=' не ') then s[i+1]:='и'
else if ((s[i-1]+s[i]+s[i+1]='не ') and (i=2)) then s[i]:='и'
else if ((s[i]+s[i+1]+s[i+2]=' не') and (i=length(s)-2)) then s[i+2]:='и';
write(s);
end.
Задача 2
var
s: string;
i, k: integer;
begin
readln(s);
for i:=2 to length(s)-1 do
if s[i-1]+s[i]+s[i+1]=' в ' then inc(k)
else if ((s[i-1]+s[i]='В ') or (s[i-1]+s[i]='в ')) and (i=2) then inc(k);
write(k);
end.
Если есть вопросы, пишите в ЛС :)