Две программы на C++ и Pascal

Две программы

Проверка числа $2 \le N \le 10^{12}$ на простоту

#include <iostream>
 
using namespace std;
 
bool isPrime(long long n) {
    // Если паскалистам приходится объявлять свои переменные в начале
    // каждой процедуры, то сишники могут объявить переменную в любом
    // месте кода. Но сделать это надо, конечно, до её использования.
 
    long long i = 2;
    bool flag = true;
    
    while (i * i <= n && flag) {
        if (n % i == 0) 
            flag = false;
        i++;
    }
    
    return (flag || n == i);
}
 
// В языке С++ весь код лежит в процедурах и функциях. Договорились то,
// с чего должно начинаться исполнение программы, класть в функцию main.
 
int main() {
    long long n;
    cin >> n;
 
    if (isPrime(n))
        cout << "prime" << endl;
    else
        cout << "composite" << endl;
 
    return 0;
}
 

{$APPTYPE CONSOLE}
 
uses SysUtils;
 
function isPrime(n: int64): boolean;
var
  i: int64;
  flag: boolean;
begin
  i := 2;
  flag := true;
 
  while (i * i <= n) and flag do begin
    if n mod i = 0 then
      flag := false;
    inc(i);
  end;
 
  result := flag or (n = i);
end;
 
var
  n: int64;
 
begin
 
  read(n);
 
  if isPrime(n) then
    writeln('prime')
  else
    writeln('composite');
 
  // Паскалисты могут написать здесь exit(0).
end.
 

Обход в глубину: дана матрица смежности, подсчитать количество компонент связности

#include <iostream>
 
using namespace std;
 
const int MAXN = 1000;
 
 
int n, a[MAXN][MAXN], counter = 0;
bool visited[MAXN];
 
 
void dfs(int v) {
 
 
 
    visited[v] = true;
 
    for (int i = 0; i < n; ++i)
        if (a[v][i] == 1 && !visited[i])
            dfs(i);
}
 
int main() {
    
    cin >> n;
 
    for (int i = 0; i < n; ++i)
        for (int j = 0; j < n; ++j)
            cin >> a[i][j];
 
    for (int i = 0; i < n; ++i)
        visited[i] = false;
 
    for (int i = 0; i < n; ++i)
        if (!visited[i]) {
            counter++;
            dfs(i);
        }
 
    cout << "Number of connected components: " << counter << endl;
 
    return 0;
}
 

{$APPTYPE CONSOLE}
 
uses SysUtils;
 
const MAXN = 1000;
 
var
  n, counter, i, j: integer;
  a: array [0..MAXN - 1, 0..MAXN - 1] of integer;
  visited: array [0..MAXN] of boolean;
 
procedure dfs(v: integer);
var
  i: integer;
begin
  visited[v] := true;
 
  for i := 0 to n - 1 do
    if (a[v][i] = 1) and not visited[i] then
      dfs(i);
end;
      
begin
  counter := 0;
  read(n);
 
  for i := 0 to n - 1 do
    for j := 0 to n - 1 do
      read(a[i][j]);
 
  for i := 0 to n - 1 do
    visited[i] := false;
 
  for i := 0 to n - 1 do
    if not visited[i] then begin
      inc(counter);
      dfs(i);
    end;
 
  writeln('Number of connected components: ', counter);
 
 
end.
 