Округляем к большему
log2 45 Получаем 5 (бит)
Ее изобрел Дуглас Карл Энгельбарт в <span>9 декабря 1968 г.</span>
1.Справочная система предназначена для получения пользователем максимально точной информации по интересующей теме.
Var
i:integer;
s:string;
f:Text;
begin
Assign(f,'input.txt'); Reset(f);
while not Eof(f) do begin
Readln(f,s);
Writeln(s,' *** символов: ',Length(s))
end;
Close(f)
end.
<em><u>Тестовое решение:</u></em>
Буря мглою небо кроет, *** символов: 22
Вихри снежные крутя; *** символов: 20
То, как зверь, она завоет, *** символов: 26
То заплачет, как дитя, *** символов: 22
То по кровле обветшалой *** символов: 23
Вдруг соломой зашумит, *** символов: 22
То, как путник запоздалый, *** символов: 26
К нам в окошко застучит *** символов: 23
Program Tablica;
Var
n: Integer;
i: Integer;
Begin
n := 15;
for i := 1 to 17 do
begin
Write(n, '*', i, '=', n*i, ' ');
Write(n+1, '*', i, '=', (n+1)*i, ' ');
WriteLn(n+2, '*', i, '=', (n+2)*i);
end;
ReadLn;
End.