Сообщение содержит 30 символов, считая пробелы и точку. Следовательно информационный объем сообщения:
30 * 2 байта=60 байт
Ответ:
b =14
Объяснение:
Составим уравнение ((((х+3)+3)+3)*b)+3=199
Подставляем 5+3=8+3=11+3=14*b+3
199-3=196 196:14=14
Var A,B:real;
Begin
//1
Write('Длина = ');ReadLn(A);
Write('Ширина = ');ReadLn(B);
WriteLn('S = ',A*B);
WriteLn('P = ',2*(A+B));
//2
WriteLn;
Write('Кол-во денег: ');ReadLn(A);
Write('Стоимость покупки: ');ReadLn(B);
WriteLn('Сдача: ',A-B);
//3
WriteLn;
Write('Расстояние: ');ReadLn(A);
Write('Стоимость проезда 1 км: ');ReadLn(B);
WriteLn('Стоимость проезда ',A,' км: ',A*B);
//4
WriteLn;
Write('Цена товара: ');ReadLn(A);
Write('Вес покупки: ');ReadLn(B);
WriteLn('Цена покупки: ',A*B);
//5
WriteLn;
Write('Объём в баррелях: ');ReadLn(A);
WriteLn('Объём в литрах: ',A*159);
End.
Для наглядности, чтобы пользователи могли легко ознакомиться с информацией
Const n=10;
var a,s,k,i:integer;
begin
Randomize;
s:=0; k:=0;
writeln('Числа:');
for i:=1 to n do
begin
a:=random(201)-100;
write(a:5);
if (a>0)and(a mod 2 = 1) then begin s:=s+a; k:=k+1; end;
end;
writeln;
if k>0
then writeln('Среднее арифметическое положительных нечетных чисел = ',s/k:5:2)
else writeln('Среди чисел нет положительных нечетных');
end.
Пример:
Числа:
11 -60 13 -62 15 -92 -71 87 -15 12
Среднее арифметическое положительных нечетных чисел = 31.50