Вроде здесь уже решал такое :)
//Pascal
var
n, a, b, c: integer;
begin
n := 1;
repeat
repeat
writeln(' Ведите стороны A,B,C ', n, ' - треугольника');
readln(a, b, c);
until ((a > 0) and (b > 0) and (c >0)) and ((a + b) >= c);
writeln('Периметр равен ',a + b + c);
n := n + 1;
until n > 25;
end.
Первая задача:
1. Находим общее количество символов 10 * 15 = 150 (симв.)
2. Находим количество бит на 1 символ по формуле N=2^i, где N -общее количество символов, а i -количество бит на один символ.
32 = 2^i, откуда следует i=5.
3. Объем сообщения равен произведению количества символов на количество бит на один символ 150 * 5 = 750 (бит)
Ответ: 750 бит
Вторая задача:
1. 1.5 кб = 1.5 * 1024 байт = 1536 байт = 1536 * 8 бит = 12288 бит
2. Находим сколько бит приходится на один символ 12288/3072=4(бит/симв.)
3. По формуле из предыдущей задачи N=2^i находим N=2^4=16.
Ответ: В алфавите 16 символов.
В приведенной команде вначале выполняется операции в скобках, затем И (логическое умножение) и самая последняя операция - ИЛИ.
Количество записей, удовлетворяющих условию
<span>(местоположение="Мексика") И (Высота над уровнем моря (в метрах) <4000)
=0, значит нам остается подсчитать количество записей, у которых (</span><span>Часть света="Азия"). Это количество = 6</span>
Var
n,i:integer;
mas: array [1..10] of integer;
begin
writeln('Введите массив:');
for i:=1 to 10 do
read(mas[i]);
for i:=1 to 10 do
begin
if mas[i] mod 5 = 0 then
n:=n+1;
end;
writeln('Количество чисел кратных 5: ',n);
end.