1001110110^2=1*2^9+1*2^6+1*2^5+1*2^4+1*2^2+1*2^1=576+72+36+16+4+2=706^10
//Вы используете крайне нерациональный способ решения, к тому же просчитали не все возможные варианты исхода событый.
//Перебирать все возможные варианты не вижу смысла, ни один программист не будет вручную все считать и перебирать, поэтому привожу свое решение:
#include <iostream>
#include <locale>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int max, min, num, mid;
cout « "Введите 1 число: "; cin » max;
cout « "Введите 2 число: "; cin » min;
if (min > max)
{
num = max;
max = min;
min = num;
}
cout « "Введите 3 число: "; cin » num;
if (num > max)
mid = max;
else if (num < min)
mid = min;
else
mid = num;
cout « endl « "Среднее число: " « mid « endl;
return 0;
}
По формуле I:K=N, где
I - Объем информации.
K - количество символов в сообщении.
N - мощность алфавита.
K=512
I=1536 байт=12288 бит
12288:512=24
Ответ: 24
Початок -> Запускаемо компьютер -> втримуємо ЛКМ (Ліва клавіша Миші) ->
переводимо бажану програму/завдання в папку -> Повідомити результат ->
Кінець
Type
Point=record
x,y:real
end;
function Distance2(a,b:Point):real;
{ возвращает квадрат расстояния между точками }
begin
Distance2:=sqr(b.x-a.x)+sqr(b.y-a.y)
end;
function Max(p,q:real):real;
{ возвращает максимальное из p,q }
begin
if p>q then Max:=p else Max:=q
end;
procedure Vvod(var a:Point;n:integer);
{ процедура с изменяемым параметром a }
begin
Write('Введите координаты точки ',n,': ');
Readln(a.x,a.y)
end;
var
a:array[1..3] of Point;
d1,d2,d3:real;
i:integer;
begin
for i:=1 to 3 do Vvod(a[i],i);
d1:=Distance2(a[1],a[2]);
d2:=Distance2(a[1],a[3]);
d3:=Distance2(a[2],a[3]);
if d1>d2 then
if d1>d3 then Writeln('Максимальное расстояние 1-2')
else
if d1=d3 then Writeln('Максимальное расстояние 1-2 и 2-3')
else Writeln('Максимальное расстояние 2-3')
else
if d1=d2 then
if d1>d3 then Writeln('Максимальное расстояние 1-2 и 1-3')
else
if d1=d3 then Writeln('Расстояния между всеми точками одинаковы')
else Writeln('Максимальное расстояние 2-3')
else
if d3>d2 then Writeln('Максимальное расстояние 2-3')
else
if d3=d2 then Writeln('Максимальное расстояние 1-3 и 2-3')
else Writeln('Максимальное расстояние 1-3');
end.
<em><u>Тестовое решение:</u></em>
Введите координаты точки 1: -2 1
Введите координаты точки 2: 4 5
Введите координаты точки 3: 2 -2
Максимальное расстояние 2-3
