Одна лампа равна одному биту, так как можно представить, что включено - 1, выключено - 0.
<span>200 лежит в рамках от 128(2 в седьмой степени) до 256(два в восьмой степени), значит для 200 разных сигналов потребуется 8 ламп(бит)</span>
Var i, n:integer; b:array[1..3] of integer;begin write('Type integer: '); readln(n); if n<0 then n:=-n; // уничтожение знака числа repeat i:= i + 1; b[i] := (n mod 10); // вывод последней цифры числа n:= n div 10; // удаление последней цифры числа until n=0; if b[3] > b[2] thenwriteln('Цифра сотен больше десятков ',b[3] - b[2])elsewriteln('Цифра сотен меньше десятков ',b[2] - b[3]);if b[2] > b[1] thenwriteln('Цифра десятков больше единиц ',b[2] - b[1])elsewriteln('Цифра десятков меньше единиц ',b[1] - b[2]);end.
Var a,b,c:integer;
begin
c:=1;
for a:=5 downto 2 do begin
for b:=5 downto c do begin
write(a);
end;
writeln('');
c:=c+1;
end;
end.
X+y+z = 48
1 шаг: 1: x-y; 2: y+y
2 шаг: 1: x-y; 2: y+y-z; 3: z+z
3 шаг: 1: (x-y)+(x-y); 2: y+y-z; 3: z+z-(x-y)
2*(x-y) = 16; 2*y-z = 16; 2*z-(x-y) = 16
x-y = 8
2*z-8 = 16, z = 12
2*y-12 = 16, y = 14
x-14 = 8, x = 22
Ответ: 22 14 12