В 3 битах можно хранить максимум 8 различный цифр (2³), поэтому максимальное количество слов - 8.
Ж- полужирный
к- курсив
ч- подчеркивание
A B A and B ¬A or not A ¬B and not b
0 0 0 1 1 1 1
0 1 0 1 1 0 0
1 0 0 0 0 1 0
1 1 1 0 1 0 0
Если Pascal:
var
n: byte;
i: integer;
begin
readln(n);
for i:=100 to 999 do
if ((i mod 10) + ((i div 10) mod 10) + (i div 100)) = n then writeln(i);
end.
Program n1;
var a: array[1..10] of integer;
i,p: integer;
begin
randomize;
write('массив: ');
p:=1;
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i]<0 then p:=p*a[i];
end;
writeln;
write('произведение отрицательных: ',p)
end.