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 раз
(50×3)×5=750 Я сама не знаю,предполагаю!
Переведем 159 в двоичную сс. 100101111
ответ: 3
Var
n,S:integer;
Begin
S:=0;
Write('n = ');ReadLn(n);
repeat
n:=n div 10;
S:=S+n mod 10;
until n = 0;
WriteLn(S)
End.
Десерт на кол-во вариантов никак не влияет, так как только одно мороженное.
Если на первое заказали борщ, то возможны 3 варианта второго блюда, то есть у нас уже 3 варианта.
Если же на первое взяли уху, то возможны только 2 варианта второго блюда, еще 2. Всего 5.
Ответ: 5