Var s : String; Begin Repeat Readln(s); Until Length(s)=4; Writeln((Ord(s[1])-Ord('0'))*8+(Ord(s[2])-Ord('0'))*4+(Ord(s[3])-Ord('0'))*2+(Ord(s[4])-Ord('0'))); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
