Написать программу с оператором input для рисования закрашенного прямоугольника.

поиграйтесь с рисовкой =)

print "vvedite chislo x1! "input x1print "vvedite chislo x2! "input x2print "vvedite chislo y1! "input y1print "vvedite chislo y2! "input y2

clsscreen 12line (x1, , y2), 5, bfend

 

 

для basic:

rem

cls

screen 7

input "a=",a

line (10,,50),2,bf

Var   i, n, k: integer;   s, c: string; begin   writeln('введите текст');   readln(s);   n : = length(s);   k : = 0;   i : = n;   repeat       c : = copy(s, i, 1);       if (c = 'к') or (c = 'к') then k : = k + 1;       i : = i - 1;   until c = ' ';   writeln('в последнем слове буква "k" встречается ', k, ' раз(а)') end. результат прогона тестового примера в pascalabc.net: введите текст кукушка кукует, а петух - кукарекает! в последнем слове буква "k" встречается 3 раз(а)

очевидно, в игре нужно задавать "да-нет" вопросы.

делим интервал пополам, и выясняем, в какой половине задуманное число. потом делим эту половину опять пополам, и т.д.

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)