Var a:integer;
begin
readln(a);
if a = 1
then write('I');
if a = 2
then write('II');
if a = 3
then write('III');
if a = 4
then write('IV');
if a = 5
then write('V');
if a = 6
then write('VI');
if a = 7
then write('VII');
if a = 8
then write('VIII');
if a = 9
then write('IX');
if a = 10
then write('X');
if a = 11
then write('XI');
if a = 12
then write('XII');
if a = 13
then write('XIII');
if a = 14
then write('XIV');
if a = 15
then write('XV');
end.
var cond,res:real;
begin
cond:=0;
readln(res);
while (res>0) do
begin
cond:=cond + 1/res;
readln(res);
end;
writeln(1/cond)
end.
(Считаю, что с клавиатуры вводятся сопротивления, признак конца ввода - 0)
а) для логического умножения: А & В = Ᾱ v В(инверсия):
А В А & В (А & В)(инверсия) Ᾱ В(инверсия) Ᾱ v В(инверсия)
0 0 0 1 1 1 1
0 1 0 1 1 0 1
1 0 0 1 0 1 1
1 1 1 0 0 0 0
б) для логического сложения: A v В = Ᾱ & В(инверсия):
А В A v В (A v В)(инверсия) Ᾱ В(инверсия) Ᾱ & В(инверсия)
0 0 0 1 1 1 1
0 1 1 0 1 0 0
1 0 1 0 0 1 0
1 1 1 0 0 0 0
Минимальное основание 10, потому что там "9", а девятка это максимум среди чисел. (0,1,2,3,4,5,6,7,8,9.)