б) алг Количество положительных(арг вещ 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
нач
ввод x,y,r1,r2
если (x*x+y*y<=r2*r2) и (x*x+y*y>=r1*r1)
то Otvet:=да
иначе Otvet:=нет
все
вывод Otvet
кон
ж) алг Упорядочение по возрастанию(арг рез вещ a, b, c)
надо | числа a, b, c упорядочены по возрастанию
нач вещ t
ввод a, b, c
если a>b
то t:=a; a:=b; b:=t | меняются местами значения a и b
все
если a>c
то t:=a; a:=c; c:=t | меняются местами значения a и c
все
если b>c
то t:=b; b:=c; c:=t | меняются местами значения b и c
все
вывод a, b, c
кон
