нц
для i от 1 до 2
S := 0
нц
для j oт 2 до 3
нц для k oт 1 до 2
S := S+i+j+k
кц
кц
кц
S = (2 + 2 + 1) + (2 + 2 + 2) + (2 + 3 + 1) + (2 + 3 + 2) = 5 + 6 + 6 + 7 = 24
X>0 правда т.к х ровно 1, а 1 больше 0
у>0 правда т.к у ровно 1, а 1 больше 0
выполняем z присвоить 1
Ответ 1
Где и на кого учишься, если на программиста уходи пока не поздно, иначе компы всяким бабкам за 5 копеек чинить будешь. Не в обиду конечно.
Нам известна мощность алфавита N (т.е. количество всех возможных символов) обоих языков, значит мы можем узнать информационный вес (i) одного символа для каждого языка по формуле
![2^{i} = N](https://tex.z-dn.net/?f=+2%5E%7Bi%7D+%3D+N)
.
Для языка Бамбара i=7 бит (
![2^{7} = 128](https://tex.z-dn.net/?f=+2%5E%7B7%7D+%3D+128)
); для языка Мандинго i=6 бит (
![2^{6} = 64](https://tex.z-dn.net/?f=+2%5E%7B6%7D+%3D+64)
).
Узнаем количество информации в сообщении на языке Бамбара: 7*70*25*7= 85 750 бит.
Вычислим количество информации в сообщении на языке Мандинго: 6*70*25*7= 73 500 бит.
Делаем вывод, что сообщение на языке Бамбара несёт больше информации на 12 250 бит (85 750-73 500= 12 250).
C++
#include <iostream>
using namespace std;
void main()
{
setlocale(0, "");
int R, x, y;
cout << "Введите радиус R окружности: ";
cin >> R;
cout << "Введите координаты точки" << endl << "X: ";
cin >> x;
cout << "Y: ";
cin >> y;
if (((x < 0) && (y < 0) && (x*x + y*y < R*R)) || ((x > 0) && (y > (x - 1)*(x - 1)) && (x*x + y*y < R*R)))
cout << "Точка попадает в заштрихованную область.\n";
else cout << "Точка не попадает в заштрихованную область.\n";
system("pause");
}
Если есть вопросы - пиши
Procedure TForm1.Button4Click(Sender: TObject);
var Buff: TNodePointer;
x: TItem;
i,j: Cardinal;
begin
i:=0;
Buff:=Head;
if(Buff^.Next=nil) then
begin
ShowMessage('В стеке один элемент!');
exit;
end;
while Buff <> nil do
begin
while (Buff^.Next<>nil) and (Buff^.Data=Buff^.Next^.Data) and not(isEmpty(Buff)) do
begin
pop(Buff^.Next,x);
for j:=i to StringGrid1.RowCount-2 do
StringGrid1.Cells[0,j]:=StringGrid1.Cells[0,j+1];
StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;
Buff:=Buff^.Next;
i:=i+1;
end;
end;
PS. Delphi у меня сейчас нет, так что проверяйте сами. Если что не так - сообщайте.