Var
x,y,z,k:boolean;
begin
writeln('Введите значения x,y,z(true или false)');
readln(x,y,z);
k:=not(x or y) and z;
write('Значение выражения: ',k);
<span>end.</span>
КОНФИГУРАЦИЯ
------------------------------------
Для перевода целого десятичного числа в двоичную систему счисления нужно последовательно выполнять деление данного числа и получаемых целых частных на 2 до тех пор, пока не получим частное, равное нулю
Program n1;
Uses CRT;
Var s: string; a: char; i,k: integer;
begin
Writeln('Vvedite stroku');
readln(s);
Writeln('Vvedite simvol');
readln(a);
For i:=1 to length(s) do
if s[i]=a then k:=k+1;
Writeln('Simvol ',a,' vstrechaetsa v stroke ',k,' raz');
readln
<span>end.</span>