Var n,c,i: integer; A: array[1..10000] of integer;begin write('Кол-во частей: '); read(n);
for i:=1 to n do read(A[i]);
c:=0; for i:=1 to n do if A[i] mod 2 = 0 then c += 1; write('Чётных чисел: ',c);end.
Держи! Код прикрепил ниже.
COUNTRY:
USA : RUSSIA:
INFO : ;washington.txt INFO:
culture.txt industry.txt ; culture.txt
Пропускная способность - то количество информации, которую можно передать за ед. времени.
Поэтому файл в 1,5 МБайт = 1536 КБайт = 1 572 864 Байт = 12 582 912 Бит, можно передать со скоростью в 128 000 Бит/с за 98,3 сек.