Решение для 4-байтного представления
Запишем двоичное число в форме нормализованного двоичного числа с плавающей точкой
0,110010001*10^1000
10- основание (2дес=10дв)
1000-порядок(8дес=1000дв)
Определим машинный порядок:
МП = 1000 + 1000000 = 1001000
запишем число
01001000 0000000 00000001 10010001
порядок ман тис са
// Насколько я смог разобрать, тебе нужно это
const n = 5;
var a: array [1..n] of integer;
i, j, imax, x: integer;
begin
randomize;
for i:=1 to n do
a[i]:=random(90);
writeln('Исходный массив: ');
for i:=1 to n do
writeln('a['+i+'] = '+a[i]);
writeln();
for i:=1 to n-1 do
begin
imax:=i;
for j:=i+1 to n do if a[j]>a[imax] then imax:=j;
x:=a[i];
a[i]:=a[imax];
a[imax]:=x;
end;
writeln('Отсортированный по убыванию массив: ');
for i:=1 to n do
writeln('a['+i+'] = '+a[i]);
writeln();
end.
<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadReal('Площадь решета равна');
var a:=ReadArrReal('Введите диаметры клубней:',10);
var d:=sqrt(4*s/pi);
var b:=a.Where(x->x<d);
var n:=b.Count;
if n>0 then begin
Write('Пройдут клубни диаметром '); b.Print;
Writeln(' - всего ',n,' шт.')
end
else Writeln('Ни один клубень не пройдет')
end.
<u>Пример</u>
Площадь решета равна 45
Введите диаметры клубней: 8.6 7.1 9 10.2 6.4 5 6 8.2 6.6 7
Пройдут клубни диаметром 7.1 6.4 5 6 6.6 7 - всего 6 шт.
Var a,b,c,max:integer;
begin
read(a,b,c);
if (a>b) and (a>c) then max:=a;
if (b>c) and (b>a) then max:=b;
if (c>a) and (c>b) then max:=c;
writeln(max);
<span>end.</span>