Можно попробовать через оператор выбора case (условие со многими выходами) если только такой оператор есть в турбо. в обычном паскале есть.
Например:
writeln(‘Введите цифру ‘);
readln(a);
case a of
0 : writeln (‘ноль‘);
1 : writeln (‘один‘);
2 : writeln (‘два‘);
3 : writeln (‘три‘);
4 : writeln (‘четыре‘);
5 : writeln (‘пять‘);
6 : writeln (‘шесть‘);
7 : writeln (‘семь‘);
8 : writeln (‘восемь‘);
<span> 9 : writeln (‘девять‘);
</span>
Пусть длина номера = 5
Мощность алфавита = 40
Тогда для записи 1 сивола понадобится 6 бит (2^6 > 40 < 2^5)
6 * 5 = 30 бит на 1 номер. Номер кодируется целым кол-во байт, следовательно 30/8=3.75, отсюда 4 байта отводится на 1 номер.
4*50= 200 байт.
1. (x>=-1) and (x <=1)
2. (x<-1) and (x>1)
3. (x<0) and (y<0)
4. (x<0) or (y<0)
5. (x>0) and (y>0)
6. sign(x)<>sign(y)
7. x*y*z<>0
8.x*y*z=0
9. (x<>0) or (y<>0) or (z<>0);
- байты на одной странице.
- байты на одном листе.
<span>Ответ: Примерно поместится 243 листов.</span>