Program Task28;
uses crt;
Var n:string;
Begin
write('Zadaite slovo dlya doma= '); readln(n);
{в центр можно вписать 8 символов и домик будет тогда целый}
writeln(' ___/\___');
writeln(' __/__\___');
writeln(' __/___\__');
writeln(' __/____\__');
writeln('__/______\__');
writeln(' _|________|_');
writeln(' _|________|_');
writeln(' _|' , n , '|_');
writeln(' _|________|_'); Readkey;End.
N в степени i = 2 в степени i ( N=кол-во символов)
32i=2i
2 в 5 степени =2 в степени i
2 в 5 степени = 2 в 5 степени
<span>Следовательно i=5 бит на 1 символ</span>
№2. 46 - 4 = 42
делители 42: 1, 2, 3, 6, 7...
наименьшее основание должно быть больше 4, то есть оно равно 6.
ответ: 6
Листинг программы и скиншот работы в приложениях.
Написано на PascalABC.NET но должно работать во всех Паскалях.
Write (ndivm +1)
Если не поймете - прокомментирую