Uses crt;
type sInfo = record
surname:string;
height:integer;
end;
var pInfo:array [1..12] of sInfo;
begin
pInfo[1].surname := 'Смирнов';
pInfo[1].height := 190;
pInfo[2].surname := 'Иванов';
pInfo[2].height := 155;
pInfo[3].surname := 'Николаев';
pInfo[3].height := 150;
pInfo[4].surname := 'Викторов';
pInfo[4].height := 168;
// И так далее по примеру выше.
// Вывод вот так:
writeln('Фамилия = ', pInfo[1].surname, ' Возраст = ', pInfo[1].height);
end.
Может, 5 человек - старше 30 лет, 15 человек - от 20 до 30 лет, 5 человек - моложе 20 лет.
или
Может в том случае, если 10 человек моложе 20 лет, 10 – в возрасте от20 до 30 лет и 5 – старше 30 лет.
256 вариантов - это 1 байт. 15 байт. И еще буквы
156/2=78 (0)
78/2=39 (0)
39/2=19 (1)
19/2=9 (1)
9/2=4 (1)
4/2=2 (0)
2/2=1 (0)
1/2=0 (1)
Остатки от деления записываем в обратном порядке.Получаем: 10011100
156=10011100 (2)
Ответ: 4.
Развёрнутый ответ (решение) на всякий случай :)
MMMDXLVII
MMDCXC
MCDLVII
MMDCXCVII
MMMDCCLXI
MMMMDCCLXXXIX
MMMMMMMDCLIII
MMMMMMMMDXLVI