Sub Calculate()
Dim coll As Collection
Dim i As Integer
Dim sum As Double
Dim negative As Integer
Dim composition As Integer
negative = 0
composition = 1
Set coll = New Collection
sum = 0
n = CInt(InputBox("Введите количество чисел", "Ввод", "", 2000, 2000))
For i = 1 To n
elmnt = CInt(InputBox(i & " число", "Ввод", "", 2000, 2000))
coll.Add elmnt
sum = sum + elmnt
Next i
For i = 1 To coll.Count
If (coll.Item(i) < 0) Then
negative = negative + 1
End If
If (coll.Item(i) Mod 2 = 1) Then
composition = composition * coll.Item(i)
End If
Next i
MsgBox "Количество отрицательных = " & negative & vbCrLf & "Произведение нечетных = " & composition & vbCrLf, vbOKOnly, "Результаты"
End Sub
Насильства, матеріали еротичного характеру
Program Project1;
var a, P, S, d :real;
begin
readln(d); a:= d/sqrt(2); S:= sqr(a); P:= 4*a; writeln('Сторона: ',a); writeln('Площадь: ',S); writeln('Периметр: ',P);
end.<span>
</span>
Информация — совокупность данных, зафиксированных на материальном носителе, сохранённых и распространённых во времени и пространстве.
Свойства:
Субъективность информации. Информация существует только во взаимосвязи с субъектом, передающим эту информацию и зависит от человеческого сознания.
Достоверность информации. Информация достоверна, если она отражает истинное положение дел. Достоверная информация помогает принять нам правильное решение.
Полнота информации. Информацию можно назвать полной, если ее достаточно для понимания и принятия решений. Неполная информация может привести к ошибочному выводу или решению.
Точность информации определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т. п.
Актуальность информации — важность для настоящего времени, злободневность, насущность. Только вовремя полученная информация может быть полезна.
Полезность (ценность) информации. Полезность может быть оценена применительно к нуждам конкретных ее потребителей и оценивается по тем задачам, которые можно решить с ее помощью.
Ответ:
Объяснение:
Язык Паскаль.
Модель:
Среднее число пассажиров, перевозимых по Кольцевой ветке равно 850 000 человек.
ДСЧ выбрасывает число из интервала 1-100000. Если это число четное, то его вычитаем из среднего, иначе прибавляем к среднему.
Листинг:
uses Crt;
const n=850000;
m=7;
type Metro = array [1..m] of longint;
var A: Metro;
i: integer;
P, max: longint;
begin
ClrScr; Randomize; max:=0;
for i:=1 to m do
begin
P:=1+random(100000);
if (P mod 2 = 0) then P:=(-1)*P;
A[i]:=n+P;
if A[i]>max then max:=A[i];
WriteLn (' ', i, ': ',A[i]:5);
end;
WriteLn(' Max = ',max);
ReadLn;
end.
Результат работы - в прикрепленных фото.
