//Pascal ABC.NET v3.1 сборка 1172
//3
Var
d:real;
begin
readln(d);
writeln(3.14*d);
end.
//4
Var
a:real;
begin
readln(a);
writeln('V=',a*a*a);
writeln('S=',6*sqr(a));
end.
//5
Var
a:real;
begin
readln(a);
writeln(a/100,' м');
writeln(a/100000,' км');
end.
Нужно составить таблицу истинности?
A: B: Итог:
0 0 0
0 1 0
1 0 1
1 1 1
Летающий автобус)
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.
S = √(p·(p - a)·(p - b)·(p - c))
(Все выражение после «=» находится под корнем)