Var i,x,n:integer;begini:=1;writeln('Vvedit N');readln(n);if n mod 2 = 0 then beginrepeatx:=i*i+x;i:=i+1;until i>n;endelse beginrepeatx:=i*i*i+x;i:=i+1;until i>n;end;writeln(x);readln;<span>end.
</span>
Uses Crt;
Var
f:text;
S,n,k,d:integer;
Begin
Assign(f,'TextIn.txt');
Reset(f);
Read(f,n);
k:=0;
For n:= 1 to n do
Begin
S:=0;
d:=n div 2;
While d<>0 do
Begin
if n mod d = 0 then S:=S+d;
d:=d-1
End;
if S = n then
Begin
WriteLn(n);
k:=k+1
End
End;
Close(f);
Assign(f,'TextOut.txt');
ReWrite(f);
Write(f,k);
Close(f);
ReadLn;
End.
Для правильной работы программы необходимо, чтобы эти файлы лежали в папке с программой:
#include <iostream>
int count_dividers(int a) {
int res = 1;
for (int i = 2; i <= a; i++) {
if (a % i == 0) {
res++;
}
}
return res;
}
int main(void) {
int a, b;
std::cin >> a >> b;
for (int i = a; i <= b; i++) {
std::cout << count_dividers(i) << " ";
}
std::cout << std::endl;
return 0;
}