¬(А∧В)=¬А∨¬В
¬(А∨В)=¬А∧¬В, Законы де Моргана
А В А*В А*В+А В*А А+В*А (А*В+А)*(А+В*А)
0 0 0 0 0 0 0
0 1 0 0 0 0 0
1 0 0 1 0 1 1
1 1 1 1 1 1 1
1.256=2**8=>на один пиксель выделяется 8 бит памяти.300 КБ=300*8*1024=2457600 бит.Общий общий объем изображения=Кол-во строк в изображении *Кол-во пикселей в строке*размер пикселя=>Кол-во пикселей=2457600:8=307200 пикселей.
2.4=2**=>на один пиксель выделяется 2 бита.Объем изображения=300*200*2=120000 бит.
16=2**4=>на один пиксель 4 бита.=>120000:4=30000 пикселей
Var tfh,h,m,c:integer;
begin
read(tfh);
h:=tfh*24;
m:=h*60;
c:=m*60;
writeln(h,' часов, ',m,' минут, ',c,' секунд');
end.
1. Площадь ромба можно определить по формуле<u>Microsoft qBASIC 1.0</u>DIM a AS DOUBLE, alpha AS DOUBLE, k AS DOUBLE, s AS DOUBLE
CLS
INPUT "a, alpha="; a, alpha
k = ATN(1) / 45
PRINT "S="; a ^ 2 * SIN(alpha * k)
2. Договоримся, что a≤b и c≤d. Если после ввода это не так, то меняем местами значения a,b и/или c,d.Условие, при котором первый прямоугольник поместится во второй выглядит как a<c ∧ b<d
DIM a AS INTEGER, b AS INTEGER, c AS INTEGER, d AS INTEGER, t AS INTEGER
CLS
INPUT "a,b,c,d"; a, b, c, d
IF a > b THEN
t = a: a = b: b = t
END IF
IF c > d THEN
t = c: c = d: d = t
END IF
IF a < c AND b < d THEN
PRINT "Входит"
ELSE
PRINT "Не входит"
END IF