Новые возможности, которые добавляют разработчики, позволяют вообще написать одну строчку:
Код (PascalABC.NET):
## ArrRandomInteger(13).Println.Average.Print;
## говорит о том, что компилятор добавит в начало и конец begin и end.
ArrRandomInteger(13) - функция, генерирующая массив из 13 случайных целых чисел
Println - метод расширения, выводящий элементы через пробел и в конце переходящий на новую строку
Average - метод, вычисляющий среднее значение
Print - вывод значения на экран
В стиле "старого" паскаля:
Код (PascalABC.NET):
var
a: array[1..13] of integer;
s, i: integer;
begin
randomize;
s := 0;
for i := 1 to 13 do
begin
a[i] := random(100);
write(a[i], ' ');
s := s + a[i];
end;
writeln;
write(s / 13);
end.
Пример вывода:
38 86 86 0 24 95 51 41 32 18 74 15 55
47.3076923076923
¬(X ∨ Y) ∧ (X ∧ ¬Y) = 0
Объяснение:
¬(X ∨ Y) ∧ (X ∧ ¬Y) = ¬X ∧ ¬Y ∧ (X ∧ ¬Y) = ¬X ∧ ¬Y ∧ (¬Y ∧ X) = ¬X ∧ (¬Y ∧ ¬Y) ∧ X = ¬X ∧ X ∧ (¬Y ∧ ¬Y) = (¬X ∧ X) ∧ (¬Y ∧ ¬Y) = 0 ∧ ¬Y = 0
Законы:
¬(A ∨ B) = ¬A ∧ ¬B - закон Де Моргана (общей инверсии для логического сложения)
A ∧ B = B ∧ A - переместительный (коммутативный) закон (для логического умножения)
A ∧ (B ∧ C) = (A ∧ B) ∧ C - сочетательный (ассоциативный) закон (для логического умножения)
A ∧ ¬A = 0 - закон исключённого третьего (для логического умножения)
A ∧ A = A - закон повторения (для логического умножения)
A ∧ 0 = 0 - закон операций с константой (для логического умножения)
Нил находиться в Африке, протяженность 6853 км^2.
Амазонка находиться в Южной Америке, протяженность 6992 км^2.
Янцзы находиться в Китае, протяженность 6300 км^2.
Миссисипи находиться в США, протяженность 3734 км^2.
Иртыш-Обь, река в Китае, Казахстане и России, левый, главный приток Оби, протяженность 4248 км^2.
Енисей-Ангара находиться в Сибири, протяженность 3487 км^2.
Хуанхэ находиться в Китае, протяженность 5464 км^2.
Амур - Шилка - Онон находиться в северо-восточной Монголии и Забайкальском крае России, правая составляющая Шилки, протяженность 1032 км^2.
Лена находиться в Росси, протяженность 4400 км^2.
Конго находиться в Центральной Африке, протяженность 4374 км^2.