Напишите программу, которая ищет среди целых чисел, принадлежащих числовому отрезку [321654; 654321], числа у которых есть только нечетные делители, количество которых больше 70. Делители 1 и само число не учитываются. Для каждого найденного числа запишите само число и максимальный по величине делитель. Например, для числа 15 имеем делители 3 и 5. Поэтому результатом (не принимая во внимание количества делителей) будет пара чисел
15 5
на языке питон

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var d:(real,real,real,real)->real:=
      (x1,y1,x2,y2)->Sqrt(Sqr(x2-x1)+Sqr(y2-y1));
  var (x1,y1):=ReadReal2('Введите координаты 1-й точки:');
  var (x2,y2):=ReadReal2('Введите координаты 2-й точки:');
  var (x3,y3):=ReadReal2('Введите координаты 3-й точки:');
  var a:=d(x1,y1,x2,y2);
  var b:=d(x2,y2,x3,y3);
  var c:=d(x1,y1,x3,y3);
  if (a+b>c) and (a+c>b) and (b+c>a) then begin
    var p:=(a+b+c)/2;
    var s:=Sqrt(p*(p-a)*(p-b)*(p-c));
    Writeln('S = ',s)
    end
  else
    Writeln('Невозможно построить треугольник')
end.

Пример
Введите координаты 1-й точки: -2.5 1.6
Введите координаты 2-й точки: 5.2 4
Введите координаты 3-й точки: 1 -1
S = 14.21

Pascal ABC, Free Pascal

var
  x1,y1,x2,y2,x3,y3,a,b,c,p,s:real;

function d(x1,y1,x2,y2:real):real;
begin
  d:=Sqrt(Sqr(x2-x1)+Sqr(y2-y1))
end;

begin
  Write('Введите координаты 1-й точки:'); Read(x1,y1);
  Write('Введите координаты 2-й точки:'); Read(x2,y2);
  Write('Введите координаты 3-й точки:'); Read(x3,y3);
  a:=d(x1,y1,x2,y2);
  b:=d(x2,y2,x3,y3);
  c:=d(x1,y1,x3,y3);
  if (a+b>c) and (a+c>b) and (b+c>a) then begin
    p:=(a+b+c)/2;
    s:=Sqrt(p*(p-a)*(p-b)*(p-c));
    Writeln('S = ',s)
    end
  else
    Writeln('Невозможно построить треугольник')
end.

С процедурой:

var
  x1,y1,x2,y2,x3,y3,a,b,c,p,s:real;

procedure d(x1,y1,x2,y2:real; var r:real);
begin
  r:=Sqrt(Sqr(x2-x1)+Sqr(y2-y1))
end;

begin
  Write('Введите координаты 1-й точки:'); Read(x1,y1);
  Write('Введите координаты 2-й точки:'); Read(x2,y2);
  Write('Введите координаты 3-й точки:'); Read(x3,y3);
  d(x1,y1,x2,y2,a);
  d(x2,y2,x3,y3,b);
  d(x1,y1,x3,y3,c);
  if (a+b>c) and (a+c>b) and (b+c>a) then begin
    p:=(a+b+c)/2;
    s:=Sqrt(p*(p-a)*(p-b)*(p-c));
    Writeln('S = ',s)
    end
  else
    Writeln('Невозможно построить треугольник')
end.

10. 11.
#include <stdlib.h>
#include <iostream>
#include <iomanip>
using namespace std;

int main() {
const int n = 5;
int a[n][n];
int s1=0, s2=0;

srand(time(0));
for (int i = 0; i < n; i++){
 for (int j = 0; j < n; j++){
a[i][j]=10+(51.0 / RAND_MAX) * rand();
cout << fixed << setw (7) << a[i][j];
 }
cout <<endl;
}

for (int i = 0; i < n; i++) {
 s1 += a[i][i]; s2 += a[i][n-i-1];
 }
 cout << "s1 = " << s1 << "  s2 = " << s2 << endl;
}

Пример:
37 47 11 12 34
13 55 15 18 38
57 12 24 52 17
31 36 21 57 43
30 56 47 26 33
s1 = 206 s2 = 142

1.
#include <iostream>
using namespace std;

long int Fact(int n)
{
       if (n==0) return 1;
       else return Fact(n-1)*n;
}

int main()
{
    int n;
    cout << "n = ";
    cin >> n;
    cout << n << "! = " << Fact(n) << "\n";
    system("Pause");
    return 0;
}

Пример:
n = 5
5! = 120