Можно попробовать через оператор выбора 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>
64*52*52=173056 символов всего в книге
169 * 1024 = 173056 байт (в 169 кБайтах)
173056 / 173056 = 1 байт нужен для кодировки каждого символа
1 байт = 8 бит
Ответ:
2) 8 бит
<em><u>Код на Паскале:</u></em>
Program proba;
Uses crt;
Var n,s:integer;
Begin
writeln('введите натуральное число');
Readln(n);
s:=0;
repeat s:=s+n mod 10;
n:=n div 10;until n=0;
writeln('сумма цифр ',s);
<span>end.
<em><u>P.S. Программа вычисляет не только трехзначные числа ;)</u></em></span>
A:= 4;
b:= 2;
b:= a/2*b = 4/2*2 = 4/4 = 1;
a:= 2*a+3*b = 2*4+3*1 = 8+3 = 11;
a = 11;
b = 1;
Минимальная система шестеричная, т.к. наибольшая цифра во всех числах - 5.
Ответ В, т.к.
425(6) = 161(10)
221(6) = 85(10)
101(6) = 37(10)
123(6) = 51(10)