Заданы числа a и b. определите, эти числа одного или разных знаков.

Var a,b : integer; begin writeln('a'); readln(a); writeln('b'); readln(b); while a> 0 do   begin    if b> 0 then     writeln ('a и б одного знака');   else    writeln ('a и б разного знака);   end; while a< 0 do   begin    if b< 0 then     writeln ('a и б одного знака');   else    writeln ('a и б разного знака); end; end.

во - первых рассмотрим простые высказывания:

 

м - монитор неисправен

в - видеокарта неисправна

о - оперативная память неисправна

 

во вторых: запишем на языке логики возможные предположения: (m v b) --> o и m --> b

пусть  f(м,в,о) =  (m v b) --> o и m --> b

составляем таблицу истинности:

м     в     о     m --> b      

0       0     0         1

1       0     1         1

0       0     0         1

1       1     1         0

0       0     0         1

0       1     1         0

1       1     0         0

1       1     1         1

1       0     0         0

1       0     0         0

0       1     1         1

1       1     0         1

0       1     1           0

1       1     1           1

0       0     1           0

1       1     0           1

1       1     0           1

1       0     1           1                

анализ таблицы показывает, что сложное высказывание истинно во всех случаях, когда м – истинно, т.е. вероятнее всего  неисправен именно монитор.

решение:  

1) 640 * 480 * 0,5 байта = 153600 байт.  512 * 1024 = 524288 байт  524288 / 153600 = 3,413 кадров.  2) 640 * 480 * 1 байт = 307200 байт  524288 / 307200 = 1,706 кадра.

ответ: примерно на одну страницу с половиной: )