Program Anutka1506;
uses crt;
var
x,y,s,p: real;
begin
writeln('Введите числа:');
write('X='); readln(x);
write('Y='); readln(y);
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
s:=(x+y)/2;
p:=2*x*y;
if x<y then
begin
x:=s;
y:=p;
end
else
begin
x:=p;
y:=s;
end;
writeln('X=',x,' Y=',y);
end.
const
N = 50;
var
a:array[1..N] of integer;
b:array[1..N] of real;
i:integer;
begin
randomize;
for i := 1 to N do
begin
a[i]:=100-random(201);
b[i]:=sqr(a[i])/(i+a[i]);
writeln('a[',i,']=',a[i],'; b[',i,']=',b[i]:5:3);
end;
end.
Var x,y,a,b,h,min,max:real; i:integer;
begin
readln(a,b,h);
x:=a; y:=2*x*x-0.5*x+5;
min:=y; max:=y;
writeln(x:4:1,' ',y:6:2);
for i:=1 to round((b-a)/h) do
begin
x:=x+h;
y:=2*x*x-0.5*x+5;
writeln(x:4:1,' ',y:6:2);
if y<min then min:=y;
if y>max then max:=y;
end;
writeln('min = ',min:6:2,' max = ',max:6:2);
end.
Пример:
-2 2 0.5
<span>-2.0 14.00
-1.5 10.25
-1.0 7.50
-0.5 5.75
0.0 5.00
0.5 5.25
1.0 6.50
1.5 8.75
2.0 12.00
min = 5.00 max = 14.00</span>
10₄=4₁₀=2²₁₀, тогда в первой скобке 2³ возводится в 301 степень, т.е. получается 2⁹⁰³
100₂=4₁₀=2²₁₀ и при возведении в степень получим 2¹²⁰⁰⁰
8₁₀=2³₁₀ и при возведении в степень 229 получим 2⁶⁸⁷
13₁₀=1101₂
Если рассматривать первые три слагаемых как запись некоторого двоичного числа в развернутой форме, то она будет означать , что в этой записи единицы стоят на месте с разрядами 12000, 903 и 687, а все остальные нули. Теперь если выполнить вычитание двоичных чисел столбиком, то получим:
100...00100...00100...00000₂
₋ 1101₂
_________________________
100...00100...00011...10011₂, т.е. одна 1 на 12000 месте, одна 1 на 903 месте, 683 единицы начиная с 686 по 4 место включительно, и еще две единицы в конце записи, итого 683+1+1+2=687 единиц в записи числа
Как то так
