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 раз
Var a:integer;
begin
randomize;
a:=random(30);
writeln('Количество этажей: ',a);
write('В доме');
if a<6 then write(' лифта нет.');
if (a>=6) and (a<=10) then write(' 1 лифт');
<span>if (a>=11) and (a<=18) then write(' 2 лифта');
</span><span>if (a>=19) and (a<=30) then write(' 4 лифта');</span>
end.
Набей в инете номер ошибки или если после обновлений зайди в востановление Виндоус там должна быть свежая точка.
В случае постоянного и бесперебойного Интернет-соединения (что бывает крайне редко) задача имеет следующее решение:
1) За секунду передаётся 56 Килобит информации. Три минуты - это 180 секунд.
2) Поскольку передача файла заняла 180 секунд, нужно умножить количество информации в секунду на 180 для того, чтобы определить исходный размер файла:
3) 56(Кбит/секунду) * 180(секунд) = 10080(Кбит).
4) Один байт эквивалентен 8 битам. В одном Мегабайте 1024 Килобайта. Делим полученное значение на 8, а затем на 1024, чтобы определить размер файла в Мегабайтах:
5) 10080 / 8 / 1024= 1,23046875(Мб).
Ответ: исходный размер файла приблизительно составляет 1,23046875 Мб.
Удачи!