Базовые формулы (зависимости) и задачи, решаемые с их помощью

input "введите число"; n
rem=нахождение количества  делителей============
for i=1 to n
 if n mod i=0 then k=k+1
next
if k=2 then print "число простое" else print "число составное"

program pr;
var n,i,k: integer;
begin
 writeln ('введите число');
 readln (n);
 k:=0;
 {=нахождение количества  делителей=}
 for i:=1 to Round (n/2) do
 if n mod i=0 then k:=k+1;
 if k=2 then writeln ('число простое')
   else writeln ('число составное');
end.

input "введите границы диапазона "; a, b
print "простые числа:"
for n=a to b
 k=0
 for i=1 to n
  if n mod i=0 then k=k+1
 next i
 if k=2 then print n
next n

var a,b,n,i,k: integer;
begin
 writeln ('введите границы диапазона');
 readln (a,b);
 writeln ('простые числа:');
 for n:=a to b do
  begin
     k:=0;
     {=нахождение количества  делителей=}
     for i:=1 to Round (Sqrt(n)) do
         if n mod i=0 then k:=k+1;
     if k=2 then
     {
         writeln (n);
         writeln (' ');
     }
 end;
end.

input "введите число"; n
{========нахождение суммы  делителей=================}
for i=1 to n/2
 if n mod i=0 then s=s+i
next
if s=n then print "число совершенное" else print "число несовершенное"

var n,i,s: integer;
begin
 writeln ('введите число');
 readln (n);
 s:=0;
 {==нахождение суммы  делителей==}
 for i:=1 to (n div 2) do
     if n mod i=0 then s:=s+i;
 if s=n then writeln ('число совершенное')
 else writeln ('число несовершенное');
end.

input "введите границы диапазона "; a, b
print "простые числа:"
for n=a to b
 s=0
 rem=нахождение суммы  делителей=
 for i=1 to n/2
    if n mod i=0 then s=s+i
 next i
 if s=n then print n
next n

var a,b,n,i,s: integer;
begin
 writeln ('введите границы диапазона');
 readln (a,b);
 writeln ('совершенные числа:');
 for n:=a to b do
 begin
    s:=0;
   {==нахождение суммы делителей==}
   for i:=1 to (n div 2) do
        if n mod i=0 then s:=s+i;
    if s=n then writeln (n);
 end;
end.

input "введите два числа"; n, m
rem=========нахождение суммы  делителей n==================
for i=1 to n/2
   if n mod i=0 then s1=s1+i
next
rem=========нахождение суммы  делителей m==================
for i=1 to m/2
   if m mod i=0 then s2=s2+i
next
if (n=s2) and (m=s1) then print "дружественные" else print "не дружественные"

var n,m,i,s1,s2: integer;
begin
 writeln ('введите два числа');
 readln (n,m);
 s1:=0;
 s2:=0;
 {=нахождение суммы  делителей n=}
 for i:=1 to (n div 2) do
    if n mod i=0 then s1:=s1+i;
 {=нахождение суммы  делителей m=}
 for i:=1 to (m div 2) do
    if m mod i=0 then s2:=s2+i;
 if (s2=n) and (s1=m) then writeln ('числа дружественные')
 else writeln ('числа не дружественные');
end.

input "введите строку"; a$
n=len (a$)
for i=n to 1 step -1
 k=1
 if n mod i=0 then 
 rem=вырезка по i====================
 for j=1 to n step i
     if mid$ (a$, j, i)=mid$(a$,j+i,i) then k=k+1
 next
 if k=n/i then kol=i
 end if
next
print mid$ (a$,1,kol)

var n,i,j,k,x,h,period: integer;
 a:string;
begin
 writeln ('введите строку');
 readln (a);
 n:=length(a);
 for i:=1 to n do
 begin
     k:=0;
    if n mod i=0 then
        begin
        h:=n div i;
        x:=1;
        for j:=1 to i-1 do
            begin
            if copy (a,1,h)=copy(a,x+h,h) then k:=k+1;
            x:=x+h;
            end;
        if k=i-1 then period:=h;
       end;
  end;
  writeln (copy (a, 1, period));
end.