Var
A,i:integer;
N:real;
Begin
WriteLn('Введите число');
ReadLn(N);
For A:= 100 to 999 do
if (A div 100)+((A div 10) mod 10)+(A mod 10)<=N then
Write(A,' ')
End.
Вычисляем по формуле n^i отсюда следует, если информация несет 4 бита информации то n^4=270
4^4<n^4<5^4
Ответ: юношей 4
1пн-5уроков.
2- 6уроков
3-7уроков
4-6уроков
5-5уроков