Дано: = 21(10), = 23(8). Какое из чисел, записанных в двоичной системе, отвечает условию b < c < a? 1) 10000
2) 10001
3) 11000
4) 10100​

ввод x = 1, y = 3

x = 3 - 1= 2

y = 2 * 2 = 4

x = 2 * 4 + 2 = 10

y = 4 + 10/2 = 9

вывод x = 10, у = 9

ответ. в результате работы программы получим: х = 10, у = 9.

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.

если что-то будет не так - напиши, испралю. у меня простог нет возможности проверить, выполняется  

program string_7; var s: string; k,l,i: integer; begin write('введите строку: '); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln('н=',k); writeln('м=',l); if k> l then writeln ('больше букв н'); if k< l thenwriteln ('больше букв м'); if (k = 0) and (l = 0) thenwriteln ('таких букв нет'); end.

так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))

1. 0,25 кбайт=256 байт = 2048 бит

2. каждый символ - 8 бит

3. 2048/8=256 символов