Первое

var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
var t: integer;
begin
t := x;
x := y;
y := t
end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
for i:=2 to 99 do if (a[i]=a[i+1]) or (a[i]=a[i-1]) then writeln('a[',i,']=',a[i]);
end.

Второе

var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
var t: integer;
begin
t := x;
x := y;
y := t
end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
if a[1]<>a[2] then writeln('a[1]=',a[1]);
for i:=2 to 99 do if (a[i]<>a[i+1]) and (a[i]<>a[i-1]) then writeln('a[',i,']=',a[i]);
if a[100]<>a[99] then writeln('a[100]=',a[100]);
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Какая память размещена на материнской плате?Во время исполнения програма хранитсяДля долговременного хранения информации служит

Андрей Рамм [62]

1)оперативная
2)в озу
3)пзу

0 0

4 года назад

РЕБУСЫ 2 КЛАСС ПОПУГАЙ ""МЯЧИК Ч=ТЬ

nikafrilance25

Попугайчик , попутчик.

0 0

2 года назад

Прочитать ещё 2 ответа

Сообщение занимает 2 страницы. на каждой странице по 48 строк. в каждой строке по 64 символа. найдите информационный объём таког

TonyDotPlaya

1) Вначале находим сколько бит занимает один символ. Формула мощности алфавита (N = 2 в степени i) . Т. к. <span>использовали 256-символьный алфавит, то 256 = 2 в степени i => i = 8 бит (столько весит один символ).
2) Находим количество символов на 1-ой странице: 64 * 48 = 3072 символа.
3) </span>Находим количество символов на 2-х страницах: 3072 * 2 = 6144 символа
4) Находим информационный объём текста, умножаем кол-во символов на вес одного символа: 6144 * 8= 49152 бита = 6144 байт = 6 Кб

0 0

4 года назад

Запишите в десятичной системе счисления число, представленное в римской системе счисления так: CMLXIV​

Запишите в десятичной системе счисления число, представленное в римской системе счисления так: CMLXIV