Я не совсем поняла задание . Но тем не мение вот что получается:
Селекционер проводит эксперименты над растением -«черный ящик».
Начинающий пользователь работает за компьютером. - Сестра изучает
наблюдает за испытаниями нового автомобиля. -Конструктор
яркость экрана домашнего телевизора-Папа регулирует
возможности фотокамеры, к которой нет документации -«черный ящик»
назначает лечение пациенту.-Врач ставит диагноз
старинные часы-Часовщик ремонтирует
Произведение можно найти с помощью факториала. Эта функция есть и на калькуляторе, так что можно было ей воспользоваться.
10!=10*9*8*7*6*5*4*3*2=3628800
Program A;
uses crt;
<span>var </span>
<span>s: string; </span>
<span>k,j,f: integer; </span>
<span>ch: char; </span>
<span>begin </span>
<span>read(S); </span>
<span>f:=0; </span>
<span>for k:=1 to length(s) do </span>
<span>for j:=1 to length(s) do </span>
<span>if ((s[k]=s[j]) and (k<>j)) then begin f:=1; ch:=s[k]; end; </span>
<span>if f=1 then Writeln('YES - ',ch) else write('NO'); </span>
<span>readln; </span>
<span>End.</span>
Если b будет равен нулю, то программа выйдет за границы массива
и после цикла for нужно ставить do begin т.к выполняется два оператора
<span>b:=random(n)+0;
Writeln(a[b]);
после них добавить ещё end;</span>
Ну це коли автор не хоче щоб його (программу, ігру, тд.тп) хтось присвоїв , ну він ставить правила які не потрібно порушувати. Захищати ? Щоб уникнути втрачення своїх прав (т.е. що б хтось не присвоїв цю ігру...)