Задачу решить проще всего методом подбора.
A2 =
.
B2 =
.
C2 =
.
Следуя логике, x >= 8, так как числитель должен быть больше знаменателя. Пробуем подставить:
A2 =
= 1.
B2 =
= 1.
C2 =
= 2.
Данные значения подходят для диаграммы.
Если решать полностью, то дробь
должны умножить на 2 и приравнять к
, потому что
является четвертью и при умножении равно
.
.
.
Второй корень не имеет смысла считать, так как он отрицательный.
Ответ: 8.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
var m:=n-1;
var found:=false;
for var i:=0 to m do begin
for var j:=0 to m do
if i=j then continue
else begin
for var k:=0 to m do
if (k=i) or (k=j) then continue
else
if a[i]+a[j]+a[k]=0 then begin
Println('Решение:',a[i],a[j],a[k]);
found:=true;
break
end;
if found then break
end;
if found then break
end;
if not found then Writeln('Нет нужной тройки чисел')
end.
<u>Примеры</u>
n= 13
-25 -29 41 -19 -9 50 -23 36 33 23 48 -6 -5
Решение: -25 -23 48
n= 8
-33 -23 -3 -5 -5 -20 -22 34
Нет нужной тройки чисел
Var
i, n, s: longint;
d, k: integer;
begin
i := 3; k := 0;
repeat
s := 1;
for d := 2 TO Trunc(sqrt(i)) do
begin
n := (i div d);
if n * d = i then s := s + d + (i div d);
end;
if int(sqrt(i)) = sqrt(i) then s := s - Trunc(sqrt(i));
if s = i then k := k + 1;
i := i + 1
until (k = 3);
Writeln('Третье совершенное число равно ',s)
end.
Тестовое решение:
Третье совершенное число равно 496
const
k=35; { k-е по порядку простое число }
var
i,j,n,m:integer;
begin
n:=1; i:=1;
repeat
j:=2;
m:=round(sqrt(i));
while (i mod j <>0) and (j<=m) do j:=j+1;
if j>m then n:=n+1;
i:=i+1
until (n=k);
Writeln(i-1)
end.
Тестовое решение:
137
var
n, d1, d2, d3: integer;
begin
Write('Введите трехзначное число ->');
Readln(n);
d1 := (n div 100);
d2 := ((n mod 100) div 10);
d3 := (n mod 10);
if (d1 * d2 * d3 in [100..999]) then
Writeln('Произведение цифр трехзначное')
else Writeln('Произведение цифр не трехзначное')
end.
Тестовое решение:
Введите трехзначное число ->518
Произведение цифр не трехзначное
*** В блок-схемах использованы обозначения:
sqrt(x) - квадратный корень от х;
\ - операция целочисленного деления
\% - операция остатка от целочисленного деления
Наверное, из-за объема. 2-ух часовой фильм в хорошем качестве весит гига 4, а на cd-r влазит 700-900 Мб.
<span><em>На данный момент стандартной ёмкостью CD-R можно считать 702 МБ данных (точнее 736 966 656 байт) или 79 минут 59 секунд и 74 фрейма. Также на рынке имеются 90-минутные / 790 МБ и 99-минутные / 870 МБ диски.</em></span>
640x480=307200 пикс.
J = 110 бит
N=2^j
N=2^110 цветов
