картинка это 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 различных подмножеств
type uchenik=record
fam:string[20];
im:string[20];
kls:string[3];
end;
var a:array[1..100] of uchenik;
n,i,j,k:byte;
begin
clrscr;
writeln('Сколько учеников n=');
readln(n);
writeln('Введите данные о ',n,' учениках:');
for i:=1 to n do
begin writeln('Ученик ',i);
write(' Фамилия: ');
readln(a[i].fam);
write(' Имя: ');
readln(a[i].im);
write(' Класс ( год+буква, 11а): ');
readln(a[i].kls);
end;
writeln('Однофамильцы в одном классе:');
k:=0; for i:=1 to n-1 do for j:=i+1 to n do
if (a[i].fam=a[j].fam)and(a[i].kls=a[j].kls) then
begin
k:=1;
writeln(a[i].kls,' ',a[i].fam,' ',a[i].im,' ',a[j].fam,' ',a[j].im);
end;
if k=0 then write('Однофамильцев в одном классе нет!');
readln
end.