Program z10;
var a,b:Array [1..10] of integer;
i,q,k:integer;
Begin
Randomize;
q:=0;k:=0;
For i:=1 to 10 do
begin
a[i]:=random(40)-20;
if(a[i]<0)then q:=q+1;
if(a[i]>0)then k:=k+1;
end;
if(k>q)then writeln('положительных больше');
if(k<q)then writeln('отрицательных больше');
if(k=q)then writeln('положительных и отрицательных одинак.. кол-во');
end.
program z1;
uses Crt;
var a: array [1..10] of real;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
a[i]:=random(10)-1;
write (a[i],' ');
end;
for i:=1 to 10 do
begin
if a[i]>0 then a[i]:=2*a[i]
else if a[i]<0 then a[i]:=a[i]/2;
end;
writeln ();
for i:=1 to 10 do
write (a[i],' ');
end.
Для связи основных устройств компьютера между собой используется специальная информационная магистраль, обычно называемая инженерами шиной. Шина состоит из трех частей:
шина адреса, на которой устанавливается адрес требуемой ячейки памяти или устройства, с которым будет происходить обмен информацией;
шина данных, по которой собственно и будет передана необходимая информация; и, наконец,
шина управления, регулирующей этот процесс (например, один из сигналов на этой шине позволяет компьютеру различать между собой адреса памяти и устройств ввода/вывода) .
Рассмотрим в качестве примера, как процессор читает содержимое ячейки памяти. Убедившись, что шина в данный момент свободна, процессор помещает на шину адреса требуемый адрес и устанавливает необходимую служебную информацию (операция – чтение, устройство – ОЗУ и т. п. ) на шину управления. Теперь ему остается только ожидать ответа от ОЗУ. Последнее, “увидев” на шине обращенный к нему запрос на чтение информации, извлекает содержимое необходимой ячейки и помещает его на шину данных. Разумеется, реальный процесс значительно подробнее, но нас сейчас не интересуют технические детали. Особо отметим, что обмен по шине при определенных условиях и при наличии определенного вспомогательного оборудования может происходить и без непосредственного участия процессора, например, между устройством ввода и внутренней памятью.
Подставим х=2.
(2<11) & (2<10)
(Истина) И (Истина)
Истина
Program enot;
Var n,s,i:integer;
begin
read(n);
s:=0;
for i:= 1 to n do
if i mod 2 = 0 then
s:=s+i;
writeln('summa = ',s);
end.<span>
2.</span>Program enot;
Var n,p,i:integer;
begin
read(n);
p:=1;
for i:= 1 to n do p:=p*i;
writeln('proizvedenie = ',p);
<span>end.</span>