Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое трёхзначных чисел или сообщает, что таких чисел нет (выводит no программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 undefined признак окончания ввода, не входит в последовательность). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести среднее арифметическое трёхзначных чисел или вывести «no», если таких чисел нет. расписать программу в паскаль abc

//название
var
  sum, n, count: longint;
begin
repeat
readln (n);
if n in [100..999] then
begin
inc (sum, n);
inc (count);
end;
until n=0;
if count = 0 then write ('No') else write (sum/count);
end.

// PascalABC.Net

function IsNice(n:longint):boolean;
// Отвечает на вопрос, является ли число красивым
var
  d,nd,sd:byte;
begin
  sd:=0; nd:=0;
  repeat
    d:=n mod 10;
    sd:=sd+d; Inc(nd);
    n:=n div 10
  until n=0;
  IsNice:=(sd mod nd = 0)
end;

var
  i,n,k:longint;
begin
  Write('Порядковый номер "красивого" числа: '); Read(n);
  i:=1; k:=0;
  repeat
    if IsNice(i) then Inc(k);
    if k<>n then Inc(i)
  until k=n;
  Writeln('Красивое число равно ',i)
end.

Тестовое решение:
Порядковый номер "красивого" числа: 15
Красивое число равно 20

Можно так

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("Жаль, вы ввели обычное число")

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

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