===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0).Count(p -> p.IsEven).Print
end.
Тип входных,то есть вводимых данных - integer(целые числа).
Тип выходных,то есть выводимых данных будет real,так как при нахождении среднего арифметического числа мы делим их сумму на 3.
Расширение первого файла третьей буквой может иметь только символ С, а во втором случае абсолютно любой и необязательно один. Поэтому нельзя сказать, что приведенные записи одинаковые и найдут одинаковые файлы
Основная мысль притчи-мудрость,долголетие,праведность,любовь к ближнему,страх перед животворными силами природы,воздержание,усердие,самообладание,разумное пользованием богатством,сочувствие к бедным,милосердие,выбор друзей,честность,трудолюбие.
B=0k=0a=list(input("Введите число"))c=''a.reverse()for i in range(len(a)): c=str(c)+str(a[i])for i in range(len(a)): if int(a[i])%2==0: k+=1 else: b+=1print('Число четных цифр',k)print('Число нечетных цифр',b)print(c)