// PascalABC.Net 3.0, сборка 1088 const n=30; var a:array[1..n] of integer; i,k:integer; begin Randomize; Writeln('*** Исходный массив ***'); k:=0; for i:=1 to n do begin a[i]:=Random(1001); Write(a[i],' '); if (a[i] mod 3 = 0) and (a[i] mod 10 = 1) then Inc(k) end; Writeln; Writeln('Количество найденных элементов равно ',k) end.
// PascalABC.Net 3.0, сборка 1088 const n=6; var a:array[1..n] of integer; i:integer; begin Randomize; Writeln('*** Исходный массив ***'); for i:=1 to n do begin a[i]:=Random(1001); Write(a[i],' '); end; Writeln; Writeln('*** Результат ***'); Write(a[1],' '); for i:=2 to n-1 do begin if Odd(a[i]) then a[i]:=a[i]+a[n] else a[i]:=a[i]+a[1]; Write(a[i],' '); end; Writeln(a[n]) end.
#include <iostream>
using namespace std;
int trianglenumber(int n)
{
int number=0;
for(int i=0;i<n;i++)
{
number=number+(i+1);
}
return number;
}
void delcount(int n)
{
for(int i=1;i<=n;i++)
{
if(n%i==0) cout<<i<<" ";
}
}
int main()
{
int UsersNumber;
cout<<"Enter your number:"<<endl;
cin>>UsersNumber;
cout<<"Your triangle number is: "<<trianglenumber(UsersNumber)<<endl;
delcount(trianglenumber(UsersNumber));
system("pause");
return 0;
}
Программа простенькая, но ты сам попросил "какой либо программы"