//PascalABC.Net 3.2
begin
var n:=readinteger('Введите число: ');
var count:=0;
repeat
if abs(n mod 10)=1 then count+=1;
n:=n div 10;
until n=0;
write ('Единиц: ', count);
end.
Возможно западает какая-нибудь клавиша на клавиатуре или мышке (если были механические повреждения или что-нибудь проливали). Либо может кто-то шутить, подключившись через программу удаленного управления, например.
3,6e+8
0,03038
0,00685
5,625
5,431004875
1) Если в кодировке ASCII.
k=63*34*13=27846 символов.
Один символ в кодировке ASCII занимает 1 байт или 8 бит.
27846*1=27846 байт.
2) Если в кодировке UNICODE.
k=63*34*13=27846 символов.
Один символ в UNICODE занимает 2 байта или 16 бит.
27846*2=55692 байт.
#python 3.6
file1 = open('input.txt', 'r')
spisok = file1.read().split()
spisok2 = sorted(spisok, key=lambda x:x[-1]) #сортирует только по последней цифре, не смотрит на остальные, чтобы сортировать по предыдущей при одинаковых последних пиши lambda x:x[::-1]
file1.close()
file2 = open('output.txt', 'w')
for I in spisok2:
file2.write(I+'\n') # перед строкой tab или пробелы
file2.close()