Var a,b:integer;
begin;
b:=1;
a:=1;
while a<>0 do
begin;
readln(a);
if a=0 then break;
b:=b*a;
end;
writeln(b);
<span>end.</span>
Var
A: array [1..10] of integer;
min,i:integer;
begin
i:=1
while i<11 do
begin
readln(A[i]);
i:=i+1;
end;
i:=1;
n:=A[1];
repeat
if min>A[i] then
min:=A[i]
i:=i+1;
until I=10;
A[10]:=min;
end
передача информации<em />-физический процесс, посредством которого осуществляется перемещение информации в пространстве. Записали информацию на диск и перенесли в другую комнату .Данный процесс характеризуется наличием следующих компонентов :
1.Источник информации.
2.Приемник информации.
3.Носитель информации
4.Среда передачи.
передача информации-за благовременное организованное техническое мероприятие, результатом которого воспроизведение информации ,имеющейся в одном месте, условно называемом "источником информации", в другом месте, условно называемом "приёмником информации". Данное мероприятие предполагает предсказуемый срок получения указанного результата.
<em>Передача информации</em>
<em> </em><em> информациональный канал </em>
<em>источник инф-и. => приемник инф-и.</em>
<em> (биологический и предметный )- способ.</em>
<em>Органы чувств: телефон, интернет, бумага.</em>
<em> Передача информации</em>
<em>односторонняя...... и .. двусторонняя</em>
<em>-> <-></em>
<em />
Ответ:
пользователь
Объяснение:
ответ содержится в самом вопросе
<em>program qq;
</em>
<em>var x,a,y:real;
</em>
<em>Begin
</em>
<em> writeln('Vvedi a');
</em>
<em> readln(a);
</em>
<em> writeln('Vvedi x');
</em>
<em> readln(x);
</em>
<em> //a:=0.5;
</em>
<em> // x:=4;
</em>
<em> y:=sqr(cos(x+a))/abs(x+a)+sin(x+a)*(x+a);
</em>
<em> writeln(y);
</em>
<em>end.</em>