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: real;
i: integer;
mas: array[0..999] of real;
begin
a := -4.5;
i := 0;
while a <= 3.5 do
begin
mas[i] := a;
a += 0.5;
write(mas[i], ' ');
i += 1;
end;
end.
Начало-столовую ложку сушенных плодов шиповника измельчить-Залить стаканом кипячённой воды-кипятить 10 минут на слабом огне-охладить-процедить-конец