Var
a1, a2, a3, mx, mn: real;
begin
writeln('Введите длины отрезков a1, a2, a3');
readln(a1, a2, a3);
mx := max(max(a1, a2), a3);
mn := min(min(a1, a2), a3);
writeln('Наибольший отрезок больше наименьшего в ', mx / mn:0:3, ' раз')
end.
Тестовое решение:
Введите длины отрезков a1, a2, a3
14 11 9.4
Наибольший отрезок больше наименьшего в 1.489 раз
I) В двоичную
а) 89 = 01011001
б) 600 = 001001011000
в)2010 = 011111011010
ll) В восьмеричную
а) 513 = 1001
б) 600 = 1130
в) 2010 = 3732
lll) В шеснадцатиричную
а) 513 = 201
б) 600 = 258
в) 2010 = 7DA
40*16=640 символов в строках
640*8=5120 символов на 8 страницах
5120/2=2560 байт на 8 страницах
1Кбайт=1024 байт
2560/1024=2.5Кбайт