Общий объем файлов: 4*1024+8*1024+836=13124кбайт. Узнаем, сколько качалось в секунду: 13124/6/60=36.45кбайт/сек
Существенные и несущественные свойства математических объектов раскрываются в процессе определения понятий математики. Множество существенных свойств составляют содержание понятия.
В проге ошибка: введённое целое число "а" сравнивается с числом "N", которого нет, т.е. оно не задано.
Также описаны переменные, которые не используются: X,Y,ch,ch1
Таблица Excel - в прилагаемом файле.
Формула: =COS(2/A2)-2*SIN(1/A2)+1/A2
В цикле, кажется, так:
for I:=1 to N do
If (Mas[I] mod 2 = 0) and (Mas[I] mod 3 = 0) and (Mas[I+1] mod 2 = 0) and (Mas[I+1] mod 3 = 0)
then Sum:=Sum+1;
Перед этим, конечно, нужно заполнить массив. N - число элементов и обнулить сумму. Можно заполнить в том же цикле:
Sum:=0;
writeln ('Число элементов:');
readln(n);
writeln ('Числа:')
for I:=1 to N do begin
readln (Mas[I]);
If (Mas[I] mod 2 = 0) and (Mas[I] mod 3 = 0) and (Mas[I+1] mod 2 = 0) and (Mas[I+1] mod 3 = 0)
then Sum:=Sum+1;
end;
writeln ('Sum=',Sum);