Я не совсем поняла задание . Но тем не мение вот что получается:
Селекционер проводит эксперименты над растением -«черный ящик».
Начинающий пользователь работает за компьютером. - Сестра изучает
наблюдает за испытаниями нового автомобиля. -Конструктор
яркость экрана домашнего телевизора-Папа регулирует
возможности фотокамеры, к которой нет документации -«черный ящик»
назначает лечение пациенту.-Врач ставит диагноз
старинные часы-Часовщик ремонтирует
включено, выключено, мигает - троичная СС.
Есть 18 штук сигналов. Сколько разрядов в троичной СС нужно для их вмещения?
3² = 9 - двух разрядов мало
3³ = 27- три разряда достаточно
32 * 1024 * 768 бит = 32 * 1024 * 768 / 8 байт = 32 * 1024 * 768 * 8 / 1024 / 1024 = 3 Mb
Program Ok;
var a,i,k,n:integer;
begin
k:=0;
write('Введите кол-во чисел: ');
readln( n);
for i:=1 to n do
begin
read(a);
if (a div 10 <> 0) and (a div 100 = 0) and (a mod 2 = 0) and (a mod 3 = 0) then
k:=k+1;
end;
write(k);
end.