Маша рассказала толе, что считает трехзначное число красивым, если в нём полусумма максимальной и минимальной по значению цифр равна оставшейся цифре числа. толе впечатлить машу – написать программу, которая будет определять красивые числа. выведите для красивого числа фразу "вы ввели красивое число", а для остальных - "жаль, вы ввели обычное число". формат ввода строка, содержащая трехзначное число. формат вывода вердикт программы-строка. пример 1 ввод вывод 135 вы ввели красивое число пример 2 ввод вывод 468 вы ввели красивое число пример 3 ввод вывод 884 жаль, вы ввели обычное число python( работаю в pycharm)

Можно так

a = int(input())

if ((a // 100) + (a % 10)) / 2 == ((a // 10) % 10):

   print("Вы ввели красивое число")

elif ((a // 100) + (a // 10) % 10) / 2 == (a % 10):

   print("Вы ввели красивое число")

elif ((a % 10) + ((a // 10) % 10)) / 2 == (a // 100):

   print("Вы ввели красивое число")

else:

   print("Жаль, вы ввели обычное число")

НО ЕСЛИ ТЫ НЕ ПОНЯЛ КОД ТО:

answer1 = input()

if (int(answer1[0]) == int(answer1[1]) and int(answer1[0]) != int(answer1[2])):

   print("Жаль, вы ввели обычное число")

elif(int(answer1[0]) == int(answer1[1]) == int(answer1[2])):

   print("Вы ввели красивое число")

elif (answer1[0]) != int(answer1[1]) == int(answer1[2]):

   print("Жаль, вы ввели обычное число")

elif (answer1[0]) != int(answer1[1]) == int(answer1[2]):

   print("Жаль, вы ввели обычное число")

Эта только первая часть

Смотри коментарии

a = int(input())

if ((a // 100) + (a % 10)) / 2 == ((a // 10) % 10):

print("Вы ввели красивое число")

elif ((a // 100) + (a // 10) % 10) / 2 == (a % 10):

print("Вы ввели красивое число")

elif ((a % 10) + ((a // 10) % 10)) / 2 == (a // 100):

print("Вы ввели красивое число")

else:

print("Жаль, вы ввели обычное число")

Объяснение:

Объяснение:

Сначала заполним массив, затем выведем его содержимое.

---

   Sub Main()

       Dim a as Double = 1

       Dim b as Double = 15

       Dim h as Double = 0.92

       

       Dim n as Integer = int((b - a) / h)

       Dim Z() As Double = New Double(n) {}

       Dim i as Double

       For i = 0 To n

           Z(i) = Math.Cos(a + h * i) + Math.Tan(a + h * i)

       Next

       

       

       For i = 0 To n

           Console.WriteLine("Z(" & i+1 & ") = " & Z(i))

       Next

   End Sub

---

Результат работы этой программы:

Z(1) = 2.09771003052304

Z(2) = -3.0884493200958

Z(3) = -1.26594678050156

Z(4) = -0.103295451547362

Z(5) = 30.831517973736

Z(6) = -0.0383774051794511

Z(7) = 1.21343345934296

Z(8) = 2.67822720165008

Z(9) = -2.28928714730523

Z(10) = -1.13533602598861

Z(11) = 0.265586431867902

Z(12) = -7.87130103019394

Z(13) = 0.283584171679959

Z(14) = 1.3388270225723

Z(15) = 4.05676371484264

Z(16) = -1.89632897888172

1)
const n=?; //Сюда поставить любое нужное n
Var a:array[1..n] of real;
i,x,k:integer; s:real;
Begin
 for i:=1 to n do
   begin
    readln(x);
    a[i]:=x;
   end;
 s:=0;
 k:=0;
 for i:=1 to n do
  begin
   s:=s+a[i];
   k:=k+1;
  end;
 s:=s/k;
 for i:=1 to n do
  if a[i]<s then
    write(a[i],', ');
 s:=s/k;
 for i:=1 to n do
  if a[i]<s then
    write(a[i],', ');
 readln;
End.

2)
Const n=?;
Var a:array[1..n] of integer;
i,max,min:integer;
Begin
 for i:=1 to n do
   begin
    readln(x);
    a[i]:=x;
   end;
 min:=a[1];
 max:=a[1];
 for i:=1 to n do
   if (i mod 2)=0 then
     if a[i]>max then
       max:=a[i];
 for i:=1 to n do
   if (i mod 2)<>0 then
     if a[i]<min then
       min:=a[i];
 writeln('max=',max);
 writeln('min=',min);
 readln;
End.