Я не трус, но я боюсь!
(Бриллиантовая рука)
Да нам, царям, молоко нужно выдавать за вредность!
(Иван Васильевич меняет профессию)
Этот нехороший человек предаст нас при первой же опасности!
(Джентльмены удачи)
Бамбарбия! Киргуду! Шутка!
(Кавказская пленница)
Шурик, это же не наш метод!
(Операция Ы и другие приключения Шурика)
Восток – дело тонкое.
Белое солнце пустыни
Утром деньги – вечером стулья, вечером деньги – ночью стулья…
(двенадцать стульев)
он, конечно, виноват, но он… не виноват…
(Берегись автомобиля!)
Около 10 МБ.
Решение:
44100*2*60*16/8/1024/1024.
Посчитай на калькуляторе если нужна точность.
Заполнение с клавиатуры:
Var
A:array[1..10000] of integer;
i,n:integer;
S:real;
Begin
Write('n = ');ReadLn(n);
Write('Введите a1..a',n,': ');
S:=0;
For i:= 1 to N do
Begin
Read(A[i]);
if (A[i] mod 4 = 0) then S:=S+A[i];
End;
WriteLn('S = ',S);
End.
Заполнение случайными числами:
Var
A:array[1..10000] of integer;
i,n:integer;
S:real;
Begin
Randomize;
Write('n = ');
ReadLn(n);
Write('a1..a',n,': ');
S:=0;
For i:= 1 to N do
Begin
A[i]:=random(2*N+1)-N;
Write(A[i],' ');
if (A[i] mod 4 = 0) then S:=S+A[i];
End;
WriteLn;
WriteLn('S = ',S);
End.
Полиграфическое оборудование.
Множество - элемент множества(подмножество).
1.Чтобы пользователь все обдумал и решил нужно ли ему это программное обеспечение с такими условиями
2.находятся в коробках на диске
3.Microsoft Word 2007
4.-
5.Вирус,сбой в работе программы,winlockerы могут попасться
