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

UptoLike

Составители: 

ввод 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
кон
     ввод 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
    кон