Очегь компьютер вводится число (например, дальность выстрела). если оно находится в интервале от 28 до 30, то напечатать текст попал, иначе — не попал

ЗАДАЧА №1

var

       x, y: Real;

begin

       Read (x);

       if x > 10 then

               y := Pi - 2 * x

       else

               y := 1 - x;

       Write (y)

end.      

ЗАДАЧА №2

var

       a, b: Real;

begin

       Read (a, b);

       Write (sqr (min (a, b)), ' ', max (a, b) * max (a, b) * max (a, b))

end.        

ЗАДАЧА №3

var

       a, c: Word;

begin

       Read (a);

       c := 0;

       if a div 100 < 5 then

               Inc (c);

       if (a div 10) mod 10 < 5 then

               Inc (c);

       if a mod 10 < 5 then

               Inc (c);

       if c > 0 then

               Write ('содержит цифры меньше 5')

       else

               Write ('не содержит цифры меньше 5')

end.        

num1 = float(input("Введите первое число: "))-вводиться число

num2 = float(input("Введите второе число: ")) -вводиться второе число

if num1 < num2:  -если нум1 меньше нум2 тогда

   print (num1, "меньше чем", num2)  вывести нум1 меньше чем нум 2

if num1 > num2:  - если нум1 больше чем нум2 тогда

   print (num1, "больше чем", num2)  вывести нум1 больше чем нум2

if num1 == num2:  -если нум1 равно нум2 тогда

   print (num1, "равно", num2)  вывести нум1 равно нум2

if num1 != num2:  -если нум1 не равно нум2 тогда

   print (num1, "не равно",num2) вывести нум 1 не равно нум2