<span>Оно?
var
x, y: integer;
begin
write ('x = ');
readln (x);
if x > 0 then
y := x - 2
else
if x = 0 then
y := 0
else
y := abs (x);
writeln ('y = ', y);
readln
end.</span>
Var
a, b, c, max: longint;
begin
readln(a, b, c);
max := a;
if (b > max) then
max := b;
if (c > max) then
max := c;
writeln(max);
end.
3 задача
N=30 символов => 32=2 в 5 степени >=30
один символ кодируется 5 битами, 3 символа 3*5=15 битов.
Сказано, что каждый шифр кодируется целым числом байтов
2байта=16 бит>= 15 бит
всего 100 шифров, => 2*100=200 байт
А)0,026 Кбайт=26,5 байт=212 бит
Б)8 Кбайт=8192 байт=65536 бит
<h2>Пункт 1</h2>
- (e) Слог
- (b) Буква
- (a) Слово
- (f) Предложение
- (c) Абзац
- (d) Документ
<h2>Пункт 2</h2>
- (d) Знак операции
- (b) Оператор
- (c) Процедура
- (a) Программа
<h2>Пункт 3</h2>
(очень спорно насчёт (a) и (d))
- (a) Микросхема
- (d) Транзистор
- (c) Материнская плата
- (b) Системный блок