Проще всего воспользоваться таблицей тетрад. Выглядит так
0000 - не зарезирвировано
0001 - А
0010 - В
0011 - Д
0100 - Е
0101 - Ж
0110 - И
0111 - К
1000 - Л
1001 - М
1010 - Н
1011 - О
1100 - П
1101 - Р
1110 - Ь
1111 - Ш
1011 - О, 1100 - П, 0100 - Е, 1000 - Л, 1110 - Ь
Слово ОПЕЛЬ
48 в двоичной 110000, значит г) 4
Program ggg;
uses GraphABC;var a,b: integer;beginwriteln('введи два целых числа');readln(a,b);if a>2 thenwriteln('первое число больше чем 2')else writeln('первое число меньше 2');
if b>2 thenwriteln('второе число больше чем 2')else writeln('второе число меньше 2');
end.
CLS
N = 0
DIM A(4,
7)
DATA
51,22,33,44,-25,76,-87
DATA
229,30,-81,882,43,84,85
DATA
37,88,99,10,34,33,23
DATA
34, 55, 66, -77, 86, 65, 32, 91
FOR i
= 1 TO 4
FOR j =
1 TO 7
READ
A(i, j)
PRINT
A(i, j);
IF A(i,
j) < 0 THEN
N = N +
1
END IF
NEXT j
PRINT
NEXT i
PRINT
<span>PRINT "N ="; N
</span>