Составить программу, которая находит и выводит сумму всех натуральных чисел из отрезка от А до В, кратных 5 и 13 (А и В водятся с клавиатуры)

2 000 Кбайт

Объяснение:

V = t * f * i * k, где  

V - информационный объём аудио файла (размер файла, содержащего запись звука)

t - общая длительность звучания (секунды)

f - частота дискретизации (Гц, количество значений амплитуды звука, фиксируемых за одну секунду)

i - глубина звука (разрешение) (число бит, используемых для хранения каждого измеренного значения)

k -  количество каналов записи (1 - моно, 2 - стерео и т.д.)

Дано:

t = 16 сек

i = 16 бит

f = 32 кГц = 32 000 Гц

k = 2

Найти:

V

V = 16 * 32 000 * 16 * 2 = 16 384 000 бит = 2 048 000 байт = 2 000 Кбайт

1 байт = 8 бит

1 Кбайт = 1024 байт

1)

var a: array [1..10] of integer;

i, max, min: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i,' элемент массива: ');

       readln(a[i]);

   end;

   max := a[1];

   min := a[1];

   for i := 2 to 10 do

   begin

       if a[i] < min then min := a[i];

       if a[i] > max then max := a[i];

   end;

   writeln();

   writeln('Максимальный эл.: ', max);

   writeln('Минимальный эл.: ', min);

end.

2)

var a: array [1..10] of integer;

i, negCounter: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i,' элемент массива: ');

       readln(a[i]);

   end;

   negCounter := 0;

   for i := 1 to 10 do

   begin

       if a[i] < 0 then inc(negCounter);

   end;

   writeln();

   writeln('Кол-во отрицательных: ', negCounter);

end.

3)

var a: array [1..10] of integer;

i, sum: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i,' элемент массива: ');

       readln(a[i]);

   end;

   sum := 0;

   for i := 1 to 10 do

       sum := sum + sqr(a[i]);

   writeln();

   writeln('Сумма квадратов элементов: ', sum);

end.