Световое табло состоит за лампочек. Каждая лампочка может находиться в трех состояниях. Какое наименьшее количество лампочке должно находится на табло, чтобы с их можно было передать 60 различных сообщений?
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 var a:array[1..10] of integer; i,s:integer; begin Randomize; s:=0; for i:=1 to 10 do begin a[i]:=Random(11)+10; Write(a[i],' '); s:=s+a[i]*sqr(a[i]) end; Writeln; Writeln('Сумма кубов ',s); for i:=1 to 10 do begin a[i]:=a[i]-5; Write(a[i],' ') end; Writeln end.
Предположим, что это две разные задачи. Окей. 1. Var x : real;Beginreadln(x);if (x<=4) and (x>=0) thenWriteln('Число принадлежит интервалу от 0 до 4')elseWriteln('Число не принадлежит интервалу от 0 до 4');Readln(x);end. // Readln в конце можно не писать, это делается для того, чтобы //программа остановилась и можно было посмотреть результат!
2. Var x : longint;BeginReadln(x);if (x mod 5 = 0) thenWriteln('Число делится на 5!')elseWriteln('Число не делится на 5!');if (x mod 10 = 0) thenWriteln('Число делится на 10!')elseWriteln('Число не делится на 10!');Readln(x);end. // Тут с Readln та же фигня
ответ: 1 лампочка — 3 сигнала 2 лампочки — 3^2 = 9 сигналов 3 лампочки — 3^3 = 27 сигналов ответ: 3.
Объяснение: смотрите выше