Freeware<span> – это те программные продукты и утилиты, которые в основном распространяются и используются без всяких ограничений</span>
2^8072+2^4036+2^5-2^0
10.....00 + 1 ....0 + 100000 - 1
10.....0010......0011111
7 единиц
1.4)
2.5)
3.5
4.3
5.г
6.5
7.1
8.2
9.1
10.2
11.1
12.1
13.2
14.10байт
дальше я не знаю
Задача легко решается с помощью кругов Эйлера. Жаль, что возможности Знаний.сом не позволяют рисовать. Попробую обяснить на пальцах. У нас есть три круга, которые состоят из ребят посетивших кино, театр и цирк. Эти круги пересекаются все три - это кто был в трех местах или попарно - те, кто был в двух местах.
Сложим количество ребят побывавших в цирке, кино и театре 11+25+17=53
Так как некоторые из них побывали в двух местах, то, чтобы исключить двойной подсчет мы их из обшей суммы вычтем
53-10-4-6=33
В классе всего 36 учеников, но так как двое вообще никуда не ходили, то 36-2=34 - остается 34.
Следовательно 34-33=1. Получается один человек был во всех трех местах (кино, цирк, театр).
Подробнее - на Znanija.com - znanija.com/task/1776567#readmore
Program pr;
uses crt;
Var mas:array[1..5, 1..5] of integer;
N, i, j, buf:integer;
Begin
N:=5;
Writeln('Введите элементы матрицы');
for i:=1 to N do
for j:=1 to N do
readln(mas[i,j]);
Writeln();
Writeln('Исходная матрица');
for i:=1 to N do
Begin
for j:=1 to N do
Write(mas[i,j], ' ');
Writeln();
end;
{Объмен}
for j:=1 to N do
Begin
buf:=mas[N,j];
mas[N,j]:=mas[1,j];
mas[1,j]:=buf
end;
Writeln();
Writeln('Результирующая матрица');
for i:=1 to N do
Begin
for j:=1 to N do
Write(mas[i,j], ' ');
Writeln();
end;
readln;
<span>end.</span>