var //это ключевое слово показывает что началось объявление переменных
b, i:integer; //тут показали что переменные b, i типа integer т.е. целые
Summ:real; {тут показали что переменные Summ типа real т.е. дробная в ней будет хранится наша сумма}
begin // это слово показывает на начало выполнения программы
Summ := 0; //присваиваем начальное значение суммы
write('b = '); readln(b); //выводим на экран 'b = ' и считываем b
for i := 1 to b do {повторяем следующую операцию b раз причем каждый раз i будет увеличиваться на 1 изначально i присваивается 1}
Summ := Summ + i * i / 2; {присваиваем сумме ее же значение плюс сразу квадрат переменной i деленный на 2}
writeln('S = ', Summ); //выводим 'S = ' и за ним сразу значение суммы
readln; //ожидаем нажатия клавиши enter
end. //конец выполнения программы
Размер цифрового моноаудиофайла измеряется по формуле: A = D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука(сек), i - глубина кодирования(байт)
т.к. у нас стерео файл, то он будет занимать в 2 раза больше места при тойже продолжительности(т.к. в нем хранится 2 монодорожки)
16 бит = 2 байта
А = 44000 * 300 * 2 = 26400000 байт = 25781,25 килобайт = 25,177 мегабайт
это для монофайла
а для стерео в 2 раза больше
52800000 байт = 51562,5 килобайт = 50,354 мегабайт
uses crt;
const N= 10; {N - количество чисел в последовательности}
var i,p, M:integer; a:array[1..N] of integer;
begin
p:=1;
write('введите число M=');readln(M);
writeln('введите исходный массив');
for i:=1 to N do {начало цикла по кол эл }
begin
write('a[',i,']='); readln(a[i]); {ввод эл массива}
if a[i]>M then p:=p*a[i];
end;
if M=1 then writeln(' элементов > M нет')
else writeln('p=',p); {печать произведения}
readln
end.