Var a:integer;
begin
readln(a);
if a = 1
then write('I');
if a = 2
then write('II');
if a = 3
then write('III');
if a = 4
then write('IV');
if a = 5
then write('V');
if a = 6
then write('VI');
if a = 7
then write('VII');
if a = 8
then write('VIII');
if a = 9
then write('IX');
if a = 10
then write('X');
if a = 11
then write('XI');
if a = 12
then write('XII');
if a = 13
then write('XIII');
if a = 14
then write('XIV');
if a = 15
then write('XV');
end.
с какой
Объяснение:
нужа задать конкретный вопрос
Сначала упростим по формулам Де Моргана
а затем используем Excel На втором рисунке покажем логические формулы
Во - первых рассмотрим простые высказывания:
М - Монитор неисправен
В - Видеокарта неисправна
О - Оперативная память неисправна
Во вторых: Запишем на языке алгебры логики возможные предположения: (M v B) --> O и M --> B
<span><span>Пусть </span><span>F</span><span>(М,В,О) = </span>(M v B) --> O и M --> B</span>
составляем таблицу истинности:
М В О M --> B
<span>0 0 0 1 </span>
<span>1 0 1 1</span>
<span> 0 0 0 1</span>
<span> 1 1 1 0 </span>
<span>0 0 0 1</span>
<span> 0 1 1 0</span>
<span> 1 1 0 0</span>
<span> 1 1 1 1</span>
<span> 1 0 0 0 </span>
<span>1 0 0 0</span>
<span> 0 1 1 1</span>
<span> 1 1 0 1</span>
<span> 0 1 1 0 </span>
<span>1 1 1 1</span>
<span>0 0 1 0 </span>
<span>1 1 0 1</span>
<span> 1 1 0 1</span>
<span> 1 0 1 1 </span>
Анализ таблицы показывает, что сложное высказывание истинно во всех случаях, когда М – истинно, т.е. вероятнее всего неисправен именно монитор.
Пример:
35(в десятичной)
35/2=17 35-2*17=1
17/2=8 17-2*8=1
8/2=4 8-2*4=0
4/2=2 4-2*2=0
2/2=1 2-2*1=0
1/2=0 1
записываем число снизу вверх: 100011
<span>35=100011
</span>
