Может кто помочь?......

Производилась двухканальная (стерео) звукозапись с частотой
дискретизации 64 кГц и 16-битным разрешением. В результате был получен
файл размером 48 Мбайт, сжатие данных не производилось. Определите
приблизительно, сколько времени (в минутах) проводилась запись.
В качестве ответа укажите ближайшее к времени записи целое число.
Ответ: ___________________________

Определить делится ли на целое число х целое число у без остатка. Если делится, то разделить х на у и вывести его. В турбо паскале програмку написать.

число 100. Вот моя программа:

Private Sub CommandButton1_Click()
Dim C(1 To 20) As Integer
Dim I, N, S As Integer
For I = 1 To 20
C(I) = Cells(I, 1)
Next I
S = 0
N = 0
For I = 1 To 20
If S <= 100 Then S = S + C(I) And N = N + 1
Next I
Cells(2, 3) = "Количество элементов массива, сумма которых превышает 100=" & N
End Sub

как результат выводит "0" (т.е. N заданное изначально). Может, кто-то сможет подсказать ошибку? Это срочно!

тема "вложенные циклы"
как сделать вот таких пингвинчиков, может кто в курсе каким образом?._.

Вычислить значение функции в зависимости от интервала, в который по-падает вводимый с клавиатуры аргумент:

( На делфи)

1)с помощью генератора случайных чисел создать Н числа в диапазоне с [-50;50](длину массива Н надо ввести с клавиатуры)
2)надо вывести сделанный массив на экран
3)нужно вычислить и вывести,какое количество парных чисел
4)и вывести на экран все парные числа.
Очень вас прошу помогите,очень нужно до завтра сделать.Если можете помочь мне,пожалуйста помогите.