Информатика 10-11. Книга 1. Теория (с задачами и решениями). Шауцукова Л.З. - 233 стр.

    7.16.

б) алг Количество положительных(арг вещ a,b,c, рез цел k)
        надо | k - количество положительных чисел среди чисел a,b,c
    нач
        ввод a,b,c;   k:=0
        если a>0
          то k:=k+1
        все
        если b>0
          то k:=k+1
        все
        если c>0
          то k:=k+1
        все
        вывод k
    кон

в) алг Преобразование(арг рез вещ a,b)
        надо |меньшее из a,b увеличено вдвое
    нач
        ввод a,b
        если a>b
          то b:=b*2
          иначе a:=a*2
        все
        вывод a,b
    кон

г) алг    Подобие треугольников(арг вещ a,b,c,d, рез лог Otvet)
          дано | a,b и c,d - катеты двух треугольников
          надо | Otvet=да, если треугольники подобны
    нач
          ввод a,b,c,d
          если (a*d=с*b) или (a*c=d*b)
            то    Otvet:=да
            иначе Otvet:=нет
          все
          вывод Otvet
   кон

д) алг Точки(арг вещ xA,yA,xB,yB,xC,yC, рез лит Otvet)
   нач вещ DistA,DistB,DistC
     ввод xA,yA,xB,yB,xC,yC
     DistA:=sqrt(xA**2 + yA**2)
     DistB:=sqrt(xB**2 + yB**2)
     DistC:=sqrt(xC**2 + yC**2)
     если (DistA < DistB) и (DistA < DistC)
       то Otvet:="Это точка А"
       иначе если DistB < DistC
               то    Otvet:="Это точка B"
               иначе Otvet:="Это точка C"
             все
     все
     вывод Otvet
   кон

е) алг Принадлежность кольцу(арг вещ x,y,r1,r2, рез лог Otvet)
     дано | r2>r1
     надо | Otvet=да, если точка (x,y) принадлежит кольцу
          | c внутренним радиусом r1 и внешним радиусом r2
    нач