begin writeln('Сколько тебе лет?:'); readln(b); if b > 17 then begin writeln('В каком институте ты учишься?:'); readln(a); writeln(a, ' хороший институт'); writeln('До следующей встречи!'); end else if b <= 17 then begin writeln('В какой школе ты учишься?'); readln(a); writeln(a, ' не плохая школа'); writeln('До следующей встречи!'); end; end.
Ну, поскольку уточнения по задаче не получил, буду считать, что цифра 1 может встречаться ровно два раза в КАЖДОЙ комбинаций (в противном случае ответ, конечно, будет другой):
Всего используется 4 знака.Нормализуем последовательность к нулю , от этого количество комбинаций не изменится: было : 111111 - 44444 стало: 00000 - 33333
Исключаем из общего количества комбинаций комбинации с двумя единицами (всего 9): 11ххх 1х1хх 1хх1х 1ххх1 х11хх х1х1х х1хх1 хх11х хх1х1 ххх11 значимыми остаются только 3 разряда из 5. 333 в 4-ричной системе счиления равно 63 в 10-ричной. - именно столько комбинаций будет при условии, что два разряда выставлены в единицы. 9х63=563 - столько комбинаций будет всего.
var
a: string;
b: integer;
begin
writeln('Сколько тебе лет?:');
readln(b);
if b > 17 then begin
writeln('В каком институте ты учишься?:');
readln(a);
writeln(a, ' хороший институт');
writeln('До следующей встречи!');
end
else
if b <= 17 then begin
writeln('В какой школе ты учишься?');
readln(a);
writeln(a, ' не плохая школа');
writeln('До следующей встречи!');
end;
end.