128 =
i = 7 бит (объем одного символа в алфавите Манго)
7 * 150 = 1050 бит (объем сообщения Манго)
64 =
i = 6 бит (объем одного символа в алфавите Кокоса)
6 * 200 = 1200 бит (объем сообщения Кокоса)
1200 + 1050 = 2250 бит (общий объем 2-ух сообщений)
Ответ :
2250 бит
Ответ:
a = input()
b = input()
if (a == 'нет' or a == 'да') and (b == 'нет' or b == 'да'):
print('ВЕРНО')
else:
print('НЕВЕРНО')
Объяснение:
<span>program if1;
var
a: integer;
begin
read(a)
;
if a > 0 then Inc(a);
write(a);
end
<span>может быть это ?.</span></span>
Летающий автобус)
1. Мест в эконом-классе 120, а в бизнес-классе 40.
2. 100 процентов прибыли получим, если заполним все места. Билет в эконом-классе стоит в 2 раза меньше чем X. Получаем следующее уравнение:
40*X + 0.5*120*X = 100%, X = 1% от всей прибыли. Значит один билет в бизнес - классе приносит один процент прибыли. А один билет в эконом-классе приносит 0.5 процента прибыли.
3. Осталось рассчитать прибыль компании учитывая непроданные билеты:
P = 100 - b - 0.5*a и написать программу:
var a,b:integer;
begin
repeat
writeln('Введите количество непроданных билетов (a,b)');
readln(a,b);
until (a<=120) and (b<=40)and (a>=0) and (b>=0);
writeln('Прибыль компании составит ',100-b-0.5*a,'%');
end.
Предположим, что последовательность же задана, то есть вводить ее мы не будем. Последовательность представляет собой массив чисел а.
n:=1; k:=0;
for i:=1 to 100 do if (a[i]<0) then k:=k+1; проверяем наличие отрицательных
if (k=0) then writeln("Отрицательных нет.") else begin
for i:=1 to 100 do if (a[i]<0) then n:=a[i]; находим хотя бы один отрицательный
for i:=1 to 100 do if ((a[i]<0) AND (a[i]>n) then n:=a[i]; находим наибольший отрицательный
writeln("Наибольшее из отрицательных чисел данной последовательности - ",n);
end;
end.