1Кб <span> </span> = 1024 байт = 8192 бит
2 килобайта = 1024х2=2048
1Мб <span>= 1024 Кб = 8 388 608 бит </span>
3Мб = 3х1024х1024=3145728 байт
1 бит=8 байт.
128 бит:8=16 байтов
Var a,b,c,d:integer;
begin
writeln('введите 9 чисел ');
d:=9;
b:=0;
while (d<>0) do begin
read(a);
if (a>10) then begin b:=a+b; c:=c+1;end;
d:=d-1;
end;
writeln('среднее арифметическое ',b/c);
<span>end.</span>
Var a, b, c, r : integer;
begin
c:=0;
r:=9;
write('Введите число: ');
readln(a);
while a div 10 <> 0 do
begin
b:=a mod 10;
a:=a div 10;
if b>c then c:=b;
if b<r then r:=b;
end;
b:=a mod 10;
a:=a div 10;
if b>c then c:=b;
if b<r then r:=b;
writeln('Разность: ', c-r);
end.
ДА ХОТЬ ДЛЯ 10 ЗНАЧНОГО))))
Program Program1;
Var
a:array [1..10] of integer;
i:integer;
rez:boolean;
begin
randomize;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],',');
end;
rez:=false;
for i:=1 to 10 do
begin
if (i>1) and (a[i]=a[i-1]) then rez:=true;
if (i<10) and (a[i]=a[i+1]) then rez:=true;
end;
if rez then writeln(' Есть одинаковые соседние элементы') else
writeln(' Нет одинаковых соседних элементов');
<span>end.</span>