1. ДЕЗИНФОРМАЦИЯ — сообщение заведомо ошибочных, искаженных, ложных <span>сведений с целью ввести информируемое лицо в заблуждение ( определение из словаря).</span> Здесь главное - цель: ввести в заблуждение. Предоставление недостаточной информации может быть и ненамеренным, например, по забывчивости или из-за незнания полного объема необходимых сведений. Например, просьба написать программу для решения какой-то задачи без указания языка программирования - это случай предоставления неполной информации, но никак не дезинформация.
2. Избыточная информация содержит сведения, не нужные для решения вопроса. Дублирующая - полностью повторяет ранее сообщенное. Например, в задаче нахождения площади поверхности шара кроме формулы для нахождения площади поверхности, сообщается формула для нахождения объема шара - это и есть пример избыточной информации.
3. Достоверность информации - это её способность сообщать истинное положение дел. Точность - степень близости информации к истинному положению дел. Например, если на улице идет сильный дождь, информация о том, что идет дождь, достоверна, а информация о том, что этот дождь сильный - точна.
В экономике сообщение о том, что инфляция за прошедший год возросла - достоверное, а о том, что она возросла на 3.7% (например) - точна.
Var
i, k, n: integer;
a: array[1..10000]of integer;
begin
readln(n);
for i := 1 to n do read(a[i]);
readln(k);
for i := 1 to n do
if (a[i] = k) then
begin
write(i);
exit;
end;
write('0');
end.
<span>Если предположить, что сначала уходили те, кто надел обувь большего размера, то таких будет, как минимум, двое. Третий уходящий может надеть свою обувь. Поэтому правильным ответом будет (Б) 2 человека.</span>
Используя дополнительную переменную можно получить так:
1. В = A * A
2. B = B * B
3. B = B * B
4. A = B * A
===== PascalABC.NET =====
procedure pK(n: integer; var k: int64);
begin
k := 1;
for var i := 2 to n do
k *= i
end;
function fK(n: integer): int64;
begin
Result := 1;
for var i := 2 to n do
Result *= i
end;
begin
var n := ReadInteger('n =');
var r: int64;
pK(n, r);
Println('Процедура:', r);
Println('Функция:', fK(n))
end.