<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var n:=ReadInteger('n=');
n.Step(n).TakeWhile(x->x<=50).Println
end.
3,7 - документ
1,4-устройство
2,6-папка
5,8-ярлык
Ответ:
Объяснение:
1)Неравенство может иметь истину или ложь
2) если a < b тогда min = a иначе min = b
2. если c < min тогда min = c
3) в вложении
Хх37 - 100 вариантов расположения всех цифр
xx73 - еще 100
х3х7 - 100
х7х3 - 100
3хх7 - 100
7хх3 - 100
3х7х - 100
7х3х - 100
...
короче всего 12*100=1200 вариантов
Так как язык указан не был, написал на C++
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
#include <iostream>
using namespace std;
int main() {
setlocale(LC_ALL, "Russian");
const size_t len = 40;
int arr[40];
for (size_t i = 0; i < len; ++i)
arr[i] = 5 - rand() % (10);
size_t count = 0;
for (size_t i = 0; i < len; ++i)
if (arr[i] > 0)
count++;
cout << count << endl; return 0;
}