Предметы для создания:прямоугольник., многоугольник, линия.
Предметы для редактирования: ластик, выделить карандаш, заливка, лупа, кисть
import random
list = []
for x in range(0,10):
list.append(random.randint(1,100))
#Alternative
#list = [int(num) for num in input().split()]
print(list)
num1=0
for elem in list:
if elem%2==1: num1+=1
num2 = len(list2)-num1
print("Нечетных элементов",num1,"\nЧётных элементов",num2)
// PascalABC.Net v.3.2, сборка 1325 (19.10.2016)
Var s:string;i:longint;
Begin
readln(s);
readln(i);
writeln(s[i]);
End.
Uses Crt;
const
p=5; { ежегодный процент }
n100=100; { количество лет }
n200=200; { количество лет }
s0=1000; {начальная сумма }
soz=100000; { на постройку общественных зданий }
sb=1061000; { оставить жителям Бостона }
var
s,s100,s200:longint;
k100,k200:real;
begin
ClrScr;
k100:=exp(n100*ln(1+p/100)); {процент за 100 лет}
k200:=exp(n200*ln(1+p/100)); {процент за 200 лет}
s100:=Trunc(s0*k100);
Writeln('Через первые 100 лет сумма составит ',s100);
Writeln('На постройку общественных зданий: ',soz);
s:=s100-soz;
Writeln('Остаток: ',s);
s100:=Trunc(s*k100);
Writeln('Через вторые 100 лет сумма составит ',s100);
Writeln('Оставить бостонским жителям: ',sb);
Writeln('Правлению Массачусетской общины: ',s100-sb);
Writeln('*** За ',n200,' лет, если бы сумм не снимали: ',
Trunc(s0*k200));
Readkey;
end.
<em><u>Тестовое решение:</u></em>
Через первые 100 лет сумма составит 131501
На постройку общественных зданий: 100000
Остаток: 31501
Через вторые 100 лет сумма составит 4142421
Оставить бостонским жителям: 1061000
Правлению Массачусетской общины: 3081421
*** За 200 лет, если бы сумм не снимали: 17292580
V=F*i*k*t
F-частота
i-глубина
k-<span>кол-во каналов</span>
t-время
t=10*1024*1024*8 бит/22050 гц/16 бит/2 канала(стерео)=118 секунд