Const
K = 13;
Var
A:array[1..K] of integer;
i,n:integer;
Sr,d:real;
Begin
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
Sr:=Sr+A[i];
End;
WriteLn;
Sr:=Sr/K;
n:=1;
d:=abs(Sr-A[n]);
For i:= 2 to K do
Begin
if abs(A[i]-Sr)<d then
Begin
n:=i;
d:=abs(Sr-A[n]);
End;
End;
WriteLn('Sr = ',Sr);
WriteLn('Номер ближайшего к среднему арифметическому: ',n);
End.
6 первый ответ один
6 второй ответ ноль
<h2>Задание 1</h2>
- =ИЛИ(A; И(B; C))
- =И(НЕ(C); ИЛИ(A; НЕ(B)))
- =ИЛИ(ИЛИ(A; B); НЕ(C))
- =И(A; ИЛИ(НЕ(C); B))
<h3>Ответ</h3>
Всё истинно
<h2>Задание 2</h2>
<u>По закону де Моргана:</u>
¬(¬A || B) || ¬ C = ¬(¬A) && ¬B || ¬C = (A && ¬B) || ¬C
<h3>Ответ</h3>
Первое выражение (1)
<h2>Задание 3</h2>
- Валя (зима), Катя (лето)
- Катя (осень), Маша (весна)
- Наташа (весна), Валя (лето)
Предположим, что Валя родилась зимой, тогда Катя родилась не летом. Пусть Катя родилась и не осенью, тогда Маша родилась весной. Следовательно, Наташа не могла родиться весной, из чего следует, что Валя родилась летом. А это противоречит первому утверждению.
Предположим, что Валя родилась не зимой, тогда Катя родилась летом, следовательно, Маша родилась весной. Наташа не могла родиться весной исходя из предыдущего утверждения, тогда Валя родилась летом - противоречие, так как летом родилась Катя.
Предположим, что Валя родилась зимой, тогда Катя родилась не летом, а осенью, тогда Маша родилась не весной, так как весной родилась Наташа, а Валя осенью, так как не может родиться летом, следовательно, Маша родилась летом.
<h2>Итого</h2>
Валя - зима, Катя - осень, Наташа - весна, Маша - лето
Program qwerty;
var a, b, P, S: real;
begin
writeln ('Нахождение периметра и площади прямоугольника');
write ('Введите значение первой стороны прямоугольника: ');
read (a);
write ('Введите значение второй стороны прямоугольника: ');
read (b);
P:=2*(a+b);
S:=a*b;
writeln ('Ответ: периметр = ', P:7:2, ', площадь = ', S:7:2,'.');
<span>end.</span>
Это объект любой окружающего мира
