В каких паскалях?!! Где условие задачи?
102400 * 2 = 204800 байт информации, 204800 * 8 (бит в байте) = 1638400 / 64 = 25600 бит / секунда
#include <iostream>
<span>using namespace std;
</span>int main() {
<span>int N,K,L;
</span><span>int</span><span /><span>gt=0,eg=0,lt=0;
</span><span> cout<<"N = "; cin>>N;
</span><span> cout<<"K = "; cin>>K;
</span><span> cout<<"элементы последовательности через пробел: ";
</span><span> for (int i=0; i<N;i++)
</span><span>{ cin>>L;
</span><span> if (L>K) gt++;
</span><span> if (L==K) eg++;
</span><span> if (L<K) lt++;
</span><span>}</span><span>
cout<<"меньше К: "<<lt<<endl;
</span><span> cout<<"равных К: "<<eg<<endl;
</span><span> cout<<"больших К: "<<gt<<endl;
</span><span> </span><span>
</span> system("pause");
<span> return(0);
</span><span>}
</span><span>
</span>
Var N, F, i :integer;
begin
writeln('введите число');
ReadLN(N);
F:=1;
for i:=1 to N do F:=F*N;
write('факториал числа ',N,' = ',F);
end.
1) дикие животные
2) одежда
3) имена существительные среднего рода
4) деревья
5) плодовые деревья
6) молочные продукты
7) инструменты столяра
8) ягодные кустраники
9) слова с безударными гласными (словарные слова)
10) имена существительные женского рода
11) имена существительные 3 склонения женского рода
12) имена существительные мужского рода с шипящей на конце слова
13) числа
14) единицы измерения времени
15) один месяц каждого времени года
16) месяцы года, в которых 31 день
17) каждое число имеет свои признаки делимости
18) простые числа (деляться только на самого себя и на 1)