Петя-2000г,Май
Коле-2000г,Май
Таня-2000г,Май
Маша-2000г,Май
Нина-2000г,Май
Извени но дальше я не пойму что именно надо тебе!
150 (10) = 226 (8)
это 3 разряда, потому что 3 цифры.
В вашем условии максимальное число Н. То есть оно может быть как двухзначное так и десяти. Я сделаю для двухзначного:
var a,a1,a2,s:intger;
Read (a);
a1:= a div 10;
a2:= a mod 10;
sum:= a1+a2;
Writen (a1,sum);
6папок т.к в 1 папке содержится 2-3 бита
Решение во вложенном файле