// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
WriteAllText('output.txt',ReadAllText('input.txt').ToReals.Average.ToString)
end.
a=float(input('input: '))
b=0
while a%1!=0:
a=a*10
while a>0:
b=b*10+a%10
a=a//10
print(b)
Поставь мне благодарность и пять звёзд)))) и тогда я напишу ответ