телеф айфон есть спицалное продолжение они совместно работает
Uses crt;
var m:array[1..4,1..5] of integer;
b:array[1..4] of integer;
min,i,j:integer;
begin
clrscr;
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
m[i,j]:=random(35)-30;
end;
<span>end;
for i:=1 to 4 do
begin
for j:=1 to 5 do
write(m[i,j]:3,' ' );
writeln;
end;
min:=m[1,1];
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
if min>m[i,j] then min:=m[i,j];
end;
b[i]:=min;
min:=m[i+1,1];
end;
for i:=1 to 4 do
writeln(i,') ',b[i]);
readkey;
end.
</span>
Написать программу, которая выводит на экран сумму
ряда
<span>
пусть a – числитель;</span><span>b – знаменатель;</span><span>da и db – шаг для
числителя и знаменателя;</span><span>n - для смены знака; </span><span> </span>
Программа:
const
<span>da= -18; {927-945}</span>
<span>db=
24; {33-9}
</span>
var
a,b,n:
integer;
s:
real;
begin
s:=0;
n:=1; a:=945;b:=9;
<span>
while a>=27 do</span><span>
begin</span><span><span>
s:=s+a/b*n; {</span>подсчет суммы}</span><span>
a:=a+da;</span><span>
b:=b+db;</span><span><span>
n:= -1*n; {</span>изменение знака}</span><span>
end;</span>
writeln('s=',s:4:2);
<span>end.</span>
1 МБ = 8 Мбит
Переводим МБ в Мбиты: 10*8=80 Мбит
80/50 = 1.6 сек
1011101(2) + 101101(2) = 10001010(2) = <span>138(10)
а) </span>1101011(2) × 1011(2) = 10010011001(2) = 1<span>177(10)
б) </span>1011101(2) × 1101(10) = 10010111<span>001(2) = </span>1<span>209(10)</span>