Обозначения:
В=ДЕЛ(х,12) С=ДЕЛ(х,18) А=ДЕЛ(х,А)
------------------------------------------------------
(¬В+¬С)→ ¬А=1
В*С+¬А=1 (формула: А+¬А=1)
А=В*С -----> Событие А: "х делится на 12 и на 18" - это НОК{12,18}
НОК{12,18} =36
ответ 36
Очень просто! Рисуешь ромбик ветвления, в нем пишешь вопрос:
x < 5 ?
На ветке ДА рисуешь прямоугольник, в нем пишешь формулу:
Z = x^3 + 6*x^2 + 1/(Abs(x) + 1)
На ветке НЕТ рисуешь второй ромбик, в нем вопрос:
x > 10 ?
На ветке ДА
рисуешь прямоугольник, в нем пишешь формулу:
Z = (8*x^2 + 4)/(7*x)
На ветке НЕТ
рисуешь прямоугольник, в нем пишешь формулу:
Z = Log(Abs(x))
Из всех трех прямоугольников выходят стрелки к параллелограмму
Вывод Z
program raf105;
const
n = 35;
var
a: array[1..30] of integer;
b: array[1..40] of integer;
c: array[1..n] of integer;
i : integer;
begin
writeln('Заполните массив A');
for i:=1 to 30 do
readln(a[i]);
writeln('Заполните массив B');
for i:=1 to 40 do
readln(b[i]);
writeln('Заполните массив C');
for i:=1 to n do
readln(c[i]);
for i:=1 to 40 do
begin
if (a[i] < 0) or (b[i] < 0) then
begin
writeln('Нет');
break
end;
if c[i] < 0 then
begin
writeln('Да');
break
end;
end;
end.
<h3>PascalABC</h3>