решить задание по теме структуры на с++:
Упорядочить сведения о мужчинах в порядке убывания значения их возраста

Задача №1.
#include<iostream>
#include<math.h>
using namespace std;
long i,sum;
int main()
{
for(i=10; i<=30; i++)
{
sum+=i;
cout<<sum<<endl;
}
return 0;
 }
#include<iostream>
#include<math.h>
using namespace std;
long i,sum;
int main()
{
 i=10;
sum=0;
while(i<=30)
{
sum+=i;
cout<<sum<<endl;
i++;
}
 return 0;
}
#include<iostream>
#include<math.h>
using namespace std;
long i,sum;
int main()
{
 i=10;
sum=0;
do
{
sum+=i;
cout<<sum<<endl;
i++;
}
while(i<=30);
return 0;
}
№2
#include<iostream>
#include<math.h>
using namespace std;
long i,a,b,k;
int main()
{
 cin>>a;
for(i=1; i<=10; i++)
{
cin>>b;
if(b==a) k++;
}
cout<<k;
 return 0;
}
#include<iostream>
#include<math.h>
using namespace std;
long i,a,b,k;
int main()
{
i=1;
cin>>a;
while(i<=10)
{
cin>>b;
if(b==a) k++;
i++;
}
cout<<k;
return 0;
}
#include<iostream>
#include<math.h>
using namespace std;
long i,a,b,k;
int main()
{
i=1;
cin>>a;
do
{
cin>>b;
if(b==a) k++;
i++;
}
while(i<=10);
cout<<k;
return 0;
}
№3
#include<iostream>
#include<math.h>
using namespace std;
long a,b,k;
int main()
{
cin>>a>>b;
k=a*a+abs(b)+5*a-10*b;
cout<<k;
return 0;
}
№4
#include<iostream>
#include<math.h>
using namespace std;
long a,b,k;
int main()
{
cin>>a;
if(a>=0) a++;
else a-=2;
return 0;
}
№5
#include<iostream>
#include<math.h>
using namespace std;
double i,u;
int main()
{
for(i=0; i<=10; i+=0.3)
{
u=i+1;
cout<<u<<endl;
}
return 0;
}

Var x,y,z,f:integer;
begin
write('Введите число: ');
readln(x);
while x>0 do
   begin
   y:=x mod 10;
   z:=x div 10;
      while z>0 do
         begin
         if (z mod 10)=y then f:=1;
         z:=z div 10;
         end;
   x:=x div 10;
   end;
if f=1 then writeln('Верно, есть одинаковые цифры')
   else writeln('Нет одинаковых цифр')
end.

Если использовать строковые ф-ии, то программа будет проще:
var
  i,k,f:integer;
  s,t:string;
begin
write('Введите число: ');
readln(s);
k:=length(s);
for i:= 1 to k do
  begin
  t:=copy(s,i+1,k-i+1);
  if pos(s[i],t)>=1 then f:=1;
  end;
if f=1 then writeln('Верно, есть одинаковые цифры')
  else writeln('Нет одинаковых цифр')
end.