Begin
writeln('_______________________¶¶¶¶¶¶¶¶¶¶1');
writeln('______________________¶¶¶¶¶¶¶¶¶¶¶¶1');
writeln('____________________¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶');
writeln('__________________¶¶¶_¶¶¶¶____¶¶¶¶¶¶¶¶');
writeln('_________________¶¶__¶¶¶__¶¶¶¶_¶¶¶¶¶¶¶¶');
writeln('________________¶¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');
writeln('________________¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');
writeln('________________¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');
writeln('________________¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');
writeln('___________¶____¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶¶_¶¶¶¶¶');
writeln('__________¶_____¶¶¶¶_¶¶¶¶¶¶____¶¶¶_¶¶¶¶¶1');
writeln('¶_________¶_____¶¶¶¶¶_¶¶¶¶¶_____¶¶¶¶¶¶¶¶');
writeln('_¶_______¶1______¶¶¶¶_¶¶¶¶_______¶¶¶¶¶¶1');
writeln('_¶¶______¶¶______¶¶¶¶_¶¶¶¶________¶¶¶¶1');
writeln('__¶_____¶_¶¶_____¶¶¶¶_¶¶¶¶');
writeln('__¶¶____¶__¶_____¶¶¶¶¶_¶¶¶');
writeln('__¶¶¶___¶__¶______¶¶¶¶_¶¶¶¶');
writeln('___¶¶¶¶¶_¶_¶______¶¶¶¶¶_¶¶¶¶');
writeln('___¶¶_¶¶¶¶¶1_______¶¶¶¶¶¶¶¶¶¶1');
writeln('__¶__¶¶¶¶¶¶¶¶1______¶¶¶¶¶¶¶¶¶¶¶1');
writeln('_¶¶_¶¶¶¶_¶¶¶¶¶¶¶1_____¶¶¶¶¶_¶¶¶¶¶');
writeln('_¶¶_0__0_¶¶¶¶¶¶¶¶¶¶¶¶1__¶¶¶¶__¶¶¶1');
writeln('_¶¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶1__¶¶¶¶_¶¶¶¶1');
writeln('_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶_¶¶¶1');
writeln('__¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶_¶¶¶¶¶_¶¶¶1');
writeln('___¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶¶1');
writeln('____¶¶¶_¶____¶¶¶¶¶¶¶¶¶_¶¶¶¶¶__¶¶¶¶¶_¶¶¶1');
writeln('_______¶¶¶¶¶¶___¶¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');
writeln('_____¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');
writeln('___1¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');
writeln('__1¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');
writeln('__1¶¶¶¶¶_____¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');
writeln('__1¶¶¶¶¶_¶¶¶¶_¶¶¶¶__¶¶¶¶¶¶¶¶¶¶_¶¶¶_¶¶¶1');
writeln('___1¶¶¶_¶¶¶¶¶¶____¶¶¶¶¶¶¶¶¶_¶¶_¶¶_¶¶¶¶1');
writeln('_____¶_¶¶¶¶¶_¶¶¶¶¶¶¶_¶¶¶¶¶¶¶_¶_¶¶_¶¶¶1');
writeln('_______¶¶¶¶¶_¶¶¶¶¶¶¶¶_¶¶¶¶¶¶_¶_¶¶_¶¶1');
writeln('________¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶_¶¶¶¶1');
writeln('__________¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶1');
writeln('___¶¶¶¶¶¶¶¶¶¶¶¶____¶¶¶¶___¶¶¶___¶¶¶¶¶');
writeln('__¶¶______¶¶¶¶¶¶¶¶¶¶¶____¶_¶¶¶¶¶¶¶¶');
writeln('_¶¶____¶¶¶______________¶¶¶¶¶¶¶¶');
writeln('_¶___¶¶¶¶_¶¶___________¶¶');
writeln('¶___¶¶¶¶_¶¶¶¶¶_______¶¶');
writeln('____¶¶¶¶_¶¶¶¶¶________1¶¶');
writeln('____¶¶¶¶_¶¶¶¶¶¶_____¶¶¶_¶¶');
writeln('____¶¶¶¶_¶¶¶¶¶_____¶¶¶¶¶_¶¶');
writeln('____¶¶¶¶¶_¶¶¶¶_____¶¶¶¶¶_¶¶');
writeln('____¶¶¶¶¶_¶¶¶¶_____¶¶¶¶¶¶_¶¶');
writeln('_____¶¶¶¶_¶¶¶______¶¶¶¶¶¶_¶¶');
writeln('______¶¶¶¶_¶¶______¶¶¶¶¶¶¶_¶');
writeln('________¶¶¶¶________¶¶¶¶¶¶_¶');
writeln('_________¶¶¶__________1¶¶¶¶¶');
writeln('__________¶¶_____________1¶¶');
writeln('___________¶_______________¶');
writeln('____________¶_______________¶');
end.
Пример В)
uses crt;var f,a,b,c:real;beginwriteln ('Введите число A');readln (a);writeln ('Введите число B');readln (b);writeln ('Введите число C');readln (c);F:=(sqrt(sqr(b)*2)-4*a*c);writeln('Ответ: ',f:2:1);end.
Очевидно, в игре нужно задавать "да-нет" вопросы.
Делим интервал пополам, и выясняем, в какой половине задуманное число. Потом делим эту половину опять пополам, и т.д.
1 вопрос: "Число больше 64?" Ответ: "нет" (значит, число между 1 и 64)
2 вопрос: "Число больше 32?" Ответ: "нет" (значит, число между 1 и 32)
3 вопрос: "Число больше 16?" Ответ: "нет" (значит, число между 1 и 16)
4 вопрос: "Число больше 8?" Ответ: "да" (значит, число между 9 и 16)
5 вопрос: "Число больше 12?" Ответ: "да" (значит, число между 13 и 16)
6 вопрос: "Число больше 14?" Ответ: "нет" (значит, число между 13 и 14)
7 вопрос: "Число больше 13?" Ответ: "нет" (значит, число = 13)
1)
var a:Integer;
begin
Readln(a);
if a div 10=3 then
writeln('True');
readln;
<span>end.
2)
var a,b:Integer;
begin
Readln(a,b);
if ((a<100) and (b>100)) or ((a>100) and (b<100)) then
Writeln('True');
readln;
<span>end.</span></span>
Длиной не менее 2 и не более 4 символов можно закодировать последовательности из 2-х, 3-х и 4-х символов.
Определим количество каждого и сложим.
Каждый сигнал принимает одно из трёх значений.
2 символа - 3^2 = 9
3 символа - 3^3 = 27
4 символа - 3^4 = 81
9+27+81 = 117