Летающий автобус)
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.
Program sber;
const
n = 4;
k = 0.06;
var
fv, x: real;
begin
write('x = ');
readln(x);
fv := x * exp(ln(1 + k) * n);
writeln('Сумма: ', fv);
end.
"З<span>аписями с последнего урока" воспользоваться не могу, потому задание сделано самым примитивным образом. Недостающий текст добавляйте сами. HTML-файлы и рисунок прилагаются.
Нет, HTML приложить сайт не даёт, так что посылаю в текстовом виде, тип файла (расширение) меняйте сами.</span>
Очень просто! То, что требуется найти в задаче, то есть количество би первоначального сообщения обозначим за x 1. Тогда несложно составить уравнение. Использована формула перевода из 16-битной в 8-битную.
16*x=8*x+16*8 (плюс, потому что объем первоначального уменьшился, а полученного увеличился)
Из полученного уравнения находим х
х = 16
Вот и все, можно записать ответ:
Ответ: 16 бит
Uses crt;var a,b:real;beginwriteln('Введите сколько тон вы хотите переплавить');readln(a);b:=(10/18)*a;writeln(b,'Тон получится ');end.