457 : 2=228, остаток 1
228 : 2=114, остаток 0
114 : 2=57, остаток 0
57:2=28, остаток 1
28:2=14, остаток 0
14:2=7, остаток 0
7:2=3, остаток 1
3:2=1, остаток 1
1:2=1, остаток 0
0
Ответ: 4
var
a:array[1..100] of integer;
povt,i,j,elem:integer;
begin
povt:=0;
randomize;
for i:=1 to 100 do
a[i]:=random(1001);
for j:=1 to 100 do
povt:=0;
begin
for i:=1 to 100 do
if a[i]=a[j] then
begin
elem:=a[i];
povt:=povt+1;
end;
povt:=povt-1;
write('Число= '+elem+ ' Количество повторений= '+ povt);
end;
Как нужно обращятся с компом ?