1. в заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных 2.задана последовательность из n вещественных чисел. вычислить сумму чисел, порядковые номера которых являются простыми числами на питоне!
Внимание! Если программа не работает, обновите версию!
begin
var (sn,pp,kp):=(0,1,0);
var n:integer;
repeat
Read(n);
if (n<0) and n.IsOdd then sn+=n
else
if (n>0) and (n mod 3=0) then begin pp*=n; kp+=1 end
until n=0;
if sn=0 then begin
Writeln('Нет отрицательных нечетных чисел');
if kp=0 then Writeln('Нет положительных чисел, кратных 3')
else Writeln('Произведение положительных чисел, кратных 3: ',pp)
end
else begin
Writeln('Сумма отрицательных нечетных чисел: ',sn);
if kp=0 then Writeln('Нет положительных чисел, кратных 3')
else Writeln('Произведение положительных чисел, кратных 3: ',pp)
end
end.
Пример
-367 23 62 7 12 -24 90 152 -63 0
Сумма отрицательных нечетных чисел: -430
Произведение положительных чисел, кратных 3: 1080
Глубина цвета i=㏒₂N, где N-количество цветов палитры
i=㏒₂256=8
I=1024*512*8*10/(8*1024*1024)= 5 Мбайт
Объем звука:
I= i*n*t, где i-глубина кодирования звука, n- частота дискретизации, t- время звучания.
I= 16*32000*40/(8*1024*1024)= 2,44 Мбайт
Общий объем презентации: 5 Мбайт+2,44 Мбайт= 7,44 Мбайт
Еще добавляем 10 Кбайт служебной информации.
А объем флешки: 3 Гбайт= 3072 Мбайт
Свободное место 10%= 307,2 Мбайт
Поэтому презентация уместится.