//Pascal ABC.NET v3.1 сборка 1219
Const
n=15;
Var
ar:array[1..n] of integer;
pro,i,k:uint64;
begin
randomize;
pro:=1;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(22,23); //Серьёно?
write(ar[i]:4);
pro:=pro*ar[i];
end;
writeln;
writeln('Pro=',pro);
write('Enter value:');
readln(k);
writeln('Final array:');
for i:=1 to n do
begin
ar[i]:=ar[i]+k;
write(ar[i]:6);
end;
end.
Пример работы программы:
First array:
23 23 22 22 22 22 23 23 23 22 23 22 22 23 23
Pro=10868183115618730368
Enter value:3
Final array:
26 26 25 25 25 25 26 26 26 25 26 25 25 26 26
INPUT "a="; a
INPUT "b="; b
INPUT "c="; c
IF a = b AND a = c AND b = c THEN
PRINT "РАВНЫ"
ELSE
PRINT "НЕ РАВНЫ"
END IF
<span>END</span>
1) ¬(¬A ^ B) ^ ¬C =( ¬(¬A)∨¬B)∧¬C = (A∨¬B)∧¬C
выражение эквивалентно выражению под цифрой 4)
<span>
2) Для того чтобы выражение было истинным надо чтобы истинными были каждое из выражений
</span><span>(Y < 5) и ((Y > 1) -> (Y > 5))
первое выражение истинно для всех указанных Y.
рассмотрим второе выражение: </span>((Y > 1) -> (Y > 5))
это выражение ложно только если (Y > 1) истинно, а (Y > 5) ложно
выражение (Y > 5) ложно для всех Y,
а выражение (Y > 1) истинно для Y = 2 , 3 , 4
Таким образом выражение ((Y > 1) -> (Y > 5)) истинно только для Y= 1
поэтому правильный ответ под номером 1)
Pascal конечно!, это самый простой язык, и нужен он в основном для исчислений, так что ответ A