// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
Begin
var a:= ArrRandom(15,0,50);a.PrintLn;
Writeln(a.Where(t -> t < 50).Count);
end.
Пример:
16 38 2 12 48 5 18 12 27 12 48 5 6 43 28
15
I=6144 байт= 8*6144 бит
k= 6144 символов
i- вес одного символа
I=I/k = 8
N=2^i - алфавит
N=256
#include <iostream>
using namespace std;
int main (){
int n;
cin >> n;
cout << "Вам " << n << " ";
if ((n > 10 && n < 15) || n % 10 > 4 || n % 10 == 0) cout << "лет\n";
else if (n % 10 == 1) cout << "год\n";
else cout << "года\n";
return 0;
}
1 потомушто больше кв.. нет