#include <iostream>
int main()
{
int x, k = 0;
cin >> x;
for (int i = 1; i <= x; i++)
{
if (x % i == 0 )
{
k++;
}
}
cout << k;
return 0;
}
Попробуйте так
Если будут вопросы – обращайтесь :)
var
i,j,s,n,max:integer;
a:array[1..5,1..5]of integer;
begin
for i:=1 to 5 do
begin
s:=0;
for j:=1 to 5 do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
s:=s+a[i,j];
end;
if s>max then
begin
n:=i;
max:=s;
end;
writeln;
end;
writeln;
write('Строка ',n,': ');
for j:=1 to 5 do
write(a[n,j],' ');
<span>end.</span>
//PascalABC.NET
//Версия 3.3, сборка 1634
function f(n: integer): integer;
begin
var fx:=1;
for var i:=2 to n do fx:=fx*i;
f:=fx;
end;
begin
var n:=ReadInteger('n=');
for var i:=0 to 9 do writeln('цифра ',i,' повторяется в числе ',f(n),' ',f(n).ToString.Where(x->x.ToDigit=i).Count,' раз' );
end.
Природная:болото,вулкан,степь
Техническая:Самолет
Смешанная:библиотека,оркестр
Думаю,что так