картинка это 3 этап
1-й этап
Дано:
(40 − а) — количество проданных авиабилетов бизнес-класса по цене хрублей за билет;
(120 − b) — количество проданных авиабилетов экономического класса по цене х/2 рублей за билет.
Найти:
s — общую сумму, полученную компанией от продажи билетов за рейс.
2-й этап
Для нахождения s можно вычислить значение следующего выражения:
(40 − а) * х + (120 − b) * х/2.
Здесь а и b — целые величины, s — величина вещественного типа.
3-й этап
1-й этап
Дано:
(40 − а) — количество проданных авиабилетов бизнес-класса по цене хрублей за билет;
(120 − b) — количество проданных авиабилетов экономического класса по цене х/2 рублей за билет.
Найти:
s — общую сумму, полученную компанией от продажи билетов за рейс.
3-й этап
4-й этап
program n_13_63;
var a, b: integer; s, x: real;
begin
writeln (‘Подсчет суммы от продажи билетов’);
writeln (‘Количество а непроданных билетов бизнес-класса’);
readln (a);
writeln (‘Количество b непроданных билетов экономического класса’);
readln (b);
writeln (‘Стоимость билетов бизнес-класса х‘);
readln (x);
s:=(40−a)*x+(120−b)*x/2;
writeln (‘Билетов продано на ‘, s,’ руб.’)
end.
5-й этап
Протестировать программу можно по следующим данным:
а = 39,
b = 119,
х = 2000,
s = 3000.
10. Нам нужно удовлетворить условие
1000 < 4^x
Методом "великого тыка" берем x = 4.
4^4 = 256
256 < 1000
Не подходит. x + 1 = 5
4^5 = 1024
1024 > 1000 - Подходит
Следовательно, Ваше наименьшее k = 5
12. 00000- пустое множество
т.к. все нули, то множество будет пустым
01110- {3,5,7}
т.к. на 2,3,4 местах присутствует 1, то подмножество будет {3,5,7}
00111- {5,7,9}
т.к. на 3,4,5 местах присутствует 1, то подмножество будет {5,7,9}
11111- {1,3,5,7,9,}
т.к. везде присутствует 1, то подмножество будет {1,3,5,7,9}
у множества М может быть 32 различных подмножеств
a:array [1..9] of integer;
i,k,b:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 9 do
begin
a[i]:=random(141)+10;
write(a[i],' ');
end;
writeln;
for i:=1 to 9 do
begin
if a[i]<=99 then
if ((a[i] div 10) mod 2)<>0 then k:=k+a[i];
if a[i]>99 then
begin
b:=a[i] div 10;
if (b mod 2)<>0 then k:=k+a[i];
end;
end;
writeln('Сумма элементов у которых вторая с конца цифра нечетная: ',k);
end.