Program gt;
var a:array[1..100000]of integer;
i,h,j,k,p:integer;
begin
randomize;
readln(h);
for i:=1 to h do
begin
a[i]:=random(101)-50;
write(a[i],' ');
end;
writeln;
for i:=1 to h-1 do
for j:=1 to h-1 do
begin
k:=a[j+1];
if(a[j]>a[j+1])then begin
a[j+1]:=a[j];
a[j]:=k;
end;
end;
p:=0;k:=1;
for i:=2 to h do
begin
if(a[i]=a[i-1])then k:=k+1;
if(a[i]<>a[i-1])or(i=h)then begin
if(k>=2)then begin
p:=p+1;
writeln(a[i-1],' ',a[i-1]);
end;
k:=1;
end;
end;
writeln(p,' кол-во парных чисел без повторений');
<span>end.</span>
Стандартной функции, на сколько я знаю, нет, вот пример "самодельной" функции, возводящей число x в степень y:
function pow(x, y : integer) : integer;
var i, res : integer;
begin
res := 1;
for i:=1 to y do res := res*x;
pow := res;
end;
#include<iostream>
using namespace std;
int main() {
printf("1 1 1 1 1 1 1 1 1 1\n");
printf("1 1 0 1 1 1 1 0 1 1\n");
printf("1 0 1 0 1 1 0 1 0 1\n");
printf("0 1 1 1 0 0 1 1 1 0\n");
printf("0 1 1 1 1 1 1 1 1 0\n");
printf("1 0 1 1 1 1 1 1 0 1\n");
printf("1 0 1 1 1 1 1 1 0 1\n");
printf("1 1 0 1 1 1 1 0 1 1\n");
printf("1 1 0 1 1 1 1 0 1 1\n");
printf("1 1 1 0 1 1 0 1 1 1\n");
printf("1 1 1 1 0 0 1 1 1 1\n");
getchar();
return 0;
}
Static void Main(string[] args)
{
StringBuilder str = new StringBuilder();
Console.Write("Введите строку, ввод завершится по точке: ");
char input = Console.ReadKey(true).KeyChar;
if (char.IsLetterOrDigit(input) || char.IsSeparator(input)) Console.Write(input);
while(input != '.')
{
str.Append(input);
input = Console.ReadKey(true).KeyChar;
if (char.IsLetterOrDigit(input) || char.IsSeparator(input)) Console.Write(input);
}
Console.WriteLine();
string resStr = str.ToString();
int a = resStr.Count(p => p == 'а');
int b = resStr.Count(p => p == 'б');
if (a > b)
Console.WriteLine("В строке чаще встречается буква а");
else if (a < b)
Console.WriteLine("В строке чаще встречается буква б");
else
Console.WriteLine("В строке букв а и б равное количество");
Console.ReadKey();
}