Const n=10;
var a:array[1..n] of integer;
k,i,j:integer;
begin
for i:=1 to n do read(a[i]);
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]=a[j] then k:=k+1;
writeln('k = ',k);
end.
Пример:
12 56 38 12 85 12 60 45 38 15
<span>k = 4</span>
Язык C++. Решения смотри во вложениях.
1)16*256*80*64*2=41943040 байт41943040 байт=41943040/1024 Кбайт=40960 Кбайт=40960/1024 Мбайт=40 Мбайт1 Гбайт-40 Мбайт=1024 Мбайт-40 Мбайт=984 Мбайт
<span>2)54272000бит/1024000бит=53 сек
лови...)</span>
Например так:
123 / 2 = 61 (1)
61 / 2 = 30 (1)
30 / 2 = 15 (0)
15 / 2 = 7 (1)
7 / 2 = 3 (1)
3 / 2 = 1 (1)
Сначала записывается последняя единица (целая часть от деления на два, в данном случае, целая часть от деления 3 на 2),
затем записываются остатки - в обратном порядке
123_10 = 1111011_2
Var
a:integer;
begin
writeln('a ?');
readln(a);
if (a mod 10)=(a div 100) then
writeln('Yes')
else
writeln('N');
end.