Летающий автобус)
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 katyadamn;
var a:array[1..10] of integer;
i,j:integer;
begin
writeln('Исходный массив:'); writeln;
for i:=1 to 10 do
begin
a[i]:=random(9)+1;
write(a[i],' ');
end;
j:=a[10];
a[10]:=a[1];
a[1]:=j;
writeln('Полученный массив:');
writeln;
for i:=1 to 10 do
write(a[i],' ');
<span>end.</span>
1)var a,b,c:integer;
begin
writeln('Введите возраст 1 друга');
readln(a);
writeln('Введите возраст 2 друга');
readln(b);
writeln('Введите возраст 3 друга');
readln(c);
if (a>b) and (a>c) then writeln('Старшим является 1 друг')
else if (b>a) and (b>c) then writeln('Старшим является 2 друг')
else writeln('Старшим является 3 друг');
<span>end.
2)</span>var a,b:integer;
begin
writeln('Введите возраст 1 друга');
readln(a);
writeln('Введите возраст 2 друга');
readln(b);
if a>b then writeln('Старшим является 1 друг')
else writeln('Старшим является 2 друг');
<span>end.</span>
