1) Каждое из двух чисел, записанных друг за другом, находятся в диапазоне от 0 до 18.
2) Помним про упорядоченность.
а) 112 <- "11" "2" <- "5+6" "1+1" <- "5611"
б) либо 191 <- "1" "91", либо 191 <- "19" "1". В любом случае получаются числа больше 18
в) 1114 <- "11" "14", но 11 < 14. Провал
г) 1519 <- "15" "19", 15 < 19, снова провал
Ответ: а)
6мбит/с=6291456 бит/с
6291456*4=25165824 бит (общий объем того что передали)
16*512=8192 (вес одной страницы)
25165824/8192=3072 страниц
Const
n=10;
var
a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
Write('Исходный массив: ');
k:=0;
for i:=1 to n do
begin
a[i]:=Random(51)-25;
Write(a[i],' ');
if (a[i]>0) and (a[i] mod 2=0) then Inc(k)
end;
Writeln;
Writeln('Количество четных положительных чисел равно ',k)
end.
Контрольный прогон
Исходный массив: 6 -13 -13 -19 -18 -10 -18 8 -17 -4
Количество четных положительных чисел равно 2
32.
var d,b,c,y:integer;
begin
readln(d,b,c);
if d>0 then writeln(y=(1/sqrt(d))*arctan((b+c)/sqrt(d)));
if d=0 then writeln(y=(-1)/(b+c));
if d>5 then writeln(y=(1/(2*sqrt(d)))*ln(sqrt(d)));
readln;
<span>end.
Могу только этот номер:D</span>
Uses Crt;
Var
A:array[1..256] of integer;
i,iMin,N,B:integer;
Begin
ClrScr;
Randomize;
Write('N = ');ReadLn(N);
Write('A(',N,'):');
iMin:=1;
For i:= 1 to n do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
if A[i] < A[iMin] then iMin:=i;
End;
WriteLn;
WriteLn('Min(A) = ',A[iMin],'[',iMin,']');
Write('Min = ');ReadLn(i);
B:=A[i];
A[i]:=A[iMin];
A[iMin]:=B;
Write('A(',N,'):');
For i:= 1 to n do
Write(' ',A[i]);
ReadKey
End.
