включено, выключено, мигает - троичная СС.
Есть 18 штук сигналов. Сколько разрядов в троичной СС нужно для их вмещения?
3² = 9 - двух разрядов мало
3³ = 27- три разряда достаточно
Program chik;
var a:array[1..100]of integer;
i,r:integer;
begin
r:=0;
for i:=1 to 10 do
begin
read(a[i]);
end;
for i:=1 to 9 do
begin
if(a[i]>a[i+1])then r:=1;
end;
if(r=1)then writeln('не является возрастающей');
if(r=0)then writeln(' Яв.. возрас..');
end.
ПЕР
числа: РЯД 3 ИЗ ВЕЩ;
сч: ЦЕЛ;
найдено: КЛЮЧ;
УКАЗ
найдено := ОТКЛ;
ОТ сч := 0 ДО РАЗМЕР(числа) - 1 ВЫП
ЕСЛИ числа[сч] > 1.6 И числа[сч] < 3.8 ТО
Вывод.ЧВещ("%g ", числа[сч], 0, 0, 0);
ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН
КОН
КОН;
ЕСЛИ НЕ найдено ТО
Вывод.Цепь("Ни одно число не принадлежит интервалу.")
КОН
Информатика?
Попробуй нажать;
Ctrl+Alt+Home