Var a,b,c,x:real;
<span>begin </span>
<span>writeln('Введите a,b,c,x'); </span>
<span>read(a,b,c,x); </span>
<span>if (a<x) and (b<x) and (c<x) then writeln('Кирпич пройдет') else </span>
<span>writeln('Кирпич не пройдет'); </span>
<span>end.</span>
Var a:string;
i,n:integer;
begin
write('Введите слово ');
readln(a);
n:=length(a);
writeln('Введите номер буквы ');
readln(i);
delete(a,i,1);
writeln(a);
readln;
<span>end.</span>
Сначала переводим из 16 системы счисления в 10
F9D2=F*16^3+9*16^2+D*16+2=63954
Теперь десятичное число 63954 переводим в 2 систему счисления:
63954/2 =31977 остаток 0
31977/2=15988 ост 1
15988/2=7994 ост 0
7994/2=3997 ост 0
3997/2=1998 ост 1
1998/2=999 ост 0
999/2=499 ост 1
499/2=249 ост 1
249/2=124 ост 1
124/2=62 ост 0
62/2=31 ост 0
31/2=15 ост 1
15/2=7 ост 1
7/2=3 ост 1
3/2=1 ост 1
Записываем 1 и все остатки в обратном порядке, получаем:
1111100111010010 в 2 системе счисления. число занимает 16 ячеек, т.е. 2 байта как и в условии
Получаем ответ: 1111100111010010
¬(¬a v b) = a ∧ ¬b
Ответ: a - истина, b - ложь