Var n,m:integer;
begin
write('Число = '); readln(n);
write('Цифра = '); readln(m);
if (n div 100 = m)or(n div 10 mod 10 = m)or(n mod 10 = m)
then writeln('Цифра есть')
else writeln('Цифры нет');
end.
Пример:
Число = 519
Цифра = 5
Цифра есть
Нам известна мощность алфавита N (т.е. количество всех возможных символов) обоих языков, значит мы можем узнать информационный вес (i) одного символа для каждого языка по формуле
.
Для языка Бамбара i=7 бит (
); для языка Мандинго i=6 бит (
).
Узнаем количество информации в сообщении на языке Бамбара: 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");
}
Если есть вопросы - пиши
Var a, b: real;
{а – возраст Маши; b – возраст Cаши}
begin
readln (a, b);
if A>B then
writeln ('Маша старше Саши')
else if a=b then
writeln('Саша и Маша ровесники')
else
writeln ('Саша старше Маши');
readln;
<span>end.</span>