Подсчитайте в переменной s сумму чисел 5/5 ; 10/5; 15/5 : 20/5; 25/5; и так далее до тех пор пока сумма остается меньше 13
Program Sum_chisel;
var s; real; n;lnteger;
begin ?

Ответ:6257143
ftp://presentation.edu/cat.pptx

#include <iostream>
using namespace std;

void get_odd_even_divisors(int n, int &odd, int &even){
odd = 0;
even = 0;
for (int i=1; i<=n; i++)
 if (n % i == 0){
  if (i % 2 == 1) odd++;
  else even++;
 }
}

int main() {
 int n, k1, k2;
 cin >> n;
 get_odd_even_divisors(n, k1, k2);
 cout << "odd = " << k1 << " even = " << k2;
 return 0;
}

Пример:
24
odd = 2 even = 6

Program ar;
Var a:array [1..3] of array [1..4] of integer;
    i, j, min, sum:integer;
begin
  for i:=1 to 3 do
    for j:=1 to 4 do
      read(a[i][j]);
  for i:=1 to 3 do
    for j:=1 to 4 do
      if a[i][j] > 10 then write(a[i][j], );
  writeln;
  min:=a[2][1];
 
  for j:=1 to 4 do
    if a[2][j] < min then min:=a[2][j];
  writeln(min);
  for i:=1 to 3 do
    begin
    sum:=0;
    for j:=1 to 4 do
      sum:=sum + a[i][j];
    write(sum, );
    end;
end.

Program pr;
Var a, b, c:array [1..20] of integer;
    i, c1, c2:integer;
begin
  for i:=1 to 20 do read(a[i]);
  for i:=1 to 20 do
    if i mod 2 = 0 then begin
      b[c1]:=a[i];
      Inc(c1);
    end
    else begin
      c[c2]:=a[i];
      Inc(c2);
    end;
  for i:=1 to 20 do write(b[i], );
  for i:=1 to 20 do write(c[i], );
end;