Напишите, , код в турбо паскаль дана символьная строка. подсчитать в ней количество вхождений букв r, k, t.

Program abc;     var s: string;             r, k, t, i: integer; begin     r : = 0;     k : = 0; t : = 0;     read(s);     for i : = 1 to length(s) do     begin         if s[i] = 'r' then inc(r)         else if s[i] = 'k' then inc(k)         else if s[i] = 't' then inc(t);   end;     writeln('r: ', r);     writeln('k: ', k);     writeln('t: ', t); end.

5. Вычислить значение переменной S:

a:=2;

b:=3;

S:=7;

[ЕСЛИ] a−b > 0, [ТОГДА] S:=a

[ИНАЧЕ] S:=b; S:=S+a

2−3 = −1  ⇒ a−b < 0 — выполняется оператор [ИНАЧЕ]

S=3; S:=3+2; S=5

ответ: б) 5

6. Вычислить значение переменной S:

a:=1;

b:=4;

C:=5;

S:=0;

[ЕСЛИ] S<b {ИЛИ} a>b, [ТОГДА] S:=a

[ИНАЧЕ] S:=b; S:=S+c

0<4, 1<4  ⇒ a<b — выполняется оператор [ИНАЧЕ]

S=4; S:=4+5; S=9

ответ: в) 9.

7. Вычислить значение переменной X:  

A:=5;

B:=2;

C:=3;

[ЕСЛИ] A>C {И} A<B, [ТОГДА] X:=5*A-5*B

[ИНАЧЕ] X:=A+B

5>3, 5>2 ⇒ A>B — выполняется оператор [ИНАЧЕ]

X:=5+2; X=7

ответ: г) 7.

-32768 .. 32768 (кроме 0)

Объяснение:

16 битами можно закодировать различных значений.

По условию кодируются положительные и отрицательные числа в равном количестве, так что и тех и других половина, по 65536 : 2 = 32768 чисел.

Получается диапазон -32768 .. 32768, из которого убрали нуль.

Обычно всё же ноль в представлениях целых чисел есть. Если использовать прямой код для записи чисел, то получится как раз одинаковое количество положительных и отрицательных чисел, но два нуля (положительный и отрицательный). Для этого случая диапазон будет -32767..32767.