Вот, на С++, можешь немного подогнать под себя
#include <iostream>
using namespace std;
int main()
{
setlocale(0,"");
int numb, data=0, i=1;
cout<<"Введите число: ";
cin>>numb;
data=i;
while(numb!=data)
{
if(data>numb)
{
cout<<"Не существует такого числа, факториал которого равен "<<numb<<endl;
break;
}
i++;
data*=i;
}
if(data==numb)
{
cout<<endl<<"Результат вычислений: "<<i<<endl;
}
system("pause");
return 0;
}
Программа:
const n=6; m=5;
var
x:array[1..n,1..m] of integer;
i,j,a,b,k:integer;
f:boolean;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
x[i,j]:=random(50);
write(x[i,j]:4);
end;
writeln;
end;
write('a, b: ');
readln(a,b);
k:=0;
for i:=1 to n do
begin
f:=false;
for j:=1 to m do
if (x[i,j]>=a)and(a<=b) then f:=true;
if f then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
Исходный массив:
2 42 11 34 11
26 46 37 21 12
7 18 8 11 29
25 38 4 18 14
8 13 8 46 41
22 29 3 47 46
a, b: 40 50
k = 4
1=61
2=375
3=232
N2
8
Во 2 задании должно быть 1001