(а+в)^2=a^2+2ab+b^2 написать пограмму в паскале

Var      a,b: real; beginwriteln('(a+b)^2 = a^2 +2ab +b^2'); writeln('введи значения a и b через пробел'); readln(a,b); writeln(sqr(a),' +',2*a*b,' +',sqr(b));

Program z1; var x1,x2,x3,x4: byte; begin for x1: =1 to 6 do begin               for x2: =x1+1 to 7 do begin                               for x3: =x2+1 to 8 do begin                                               for x4: =x3+1 to 9 do begin                                                               writeln(x1,x2,x3,x4)                                               end                               end               end end; readln end.

Информационная неопределенность (количество возможных результатов события) равна 16. будем задавать вопросы, на которые можно ответить только «да» или «нет». вопрос будем ставить так, чтобы каждый ответ приносил 1 бит информации, т.е. уменьшал информационную неопределенность в два раза. задаем вопросы: - друг живет выше 8-го этажа? нет. после этого ответа число вариантов уменьшилось в два раза, следовательно, информационная неопределенность уменьшилась в два раза. получен 1 бит информации.   друг живет выше 4-го этажа? да. число вариантов уменьшилось еще в два раза, получен еще 1 бит информации. друг живет выше 6-го этажа? да. после данного ответа осталось два варианта: друг живет или на 7 этаже, или на 8 этаже. получен еще 1 бит информации. друг живет на 7-м этаже? нет. все ясно. друг живет на 8-м этаже. каждый ответ уменьшал информационную неопределенность в два раза. всего было задано 4 вопроса. получено 4 бита информации. сообщение о том, что друг живет на 8-м этаже 16-ти этажного дома несет 4 бита информации.