Program n1;
type z= array of integer;
var a:z;
d,n,i,j,x: integer;
begin
n:=0;
while true do
begin
readln(d);
if d=0 then break;
n:=n+1;
setlength(a,n);
a[n-1]:=d;
end;
for i:=0 to n-2 do
for j:=i+1 to n-1 do
if a[i]<a[j] then begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln(a[1]);
end.
всё что нужно, это просто перевести числа в 10-ную сс, поделить их, а результат снова перевести в двоичную.
Числитель в десятичной = 45,375
Знаменатель в десятичной = 5,5
Если поделим эти числа узнаем, что результат 8,25
Переводим это число в двоичную сс и получаем 1000.01
Var
A,B:real;
Begin
WriteLn('Введите два числа');
ReadLn(A,B);
WriteLn('Сумма данных чисел равна: ',A+B)
End.
Пример:
Введите два числа
3.14159 2.71828
Сумма данных чисел равна: 5.85987
100*30*60=180000 байт
28800/8=3600 байт/с
180000/3600=50 секунд