1 картинка: источник - молодой человек, приемник: девушка
2 картинка: источник - учитель, приемник - дети
3 картинка: источник - книги, приемник - читатель
4 картинка: источник - приемник: девушка, та что ниже и второй источник-приемник - девушка, та что выше
1580kilobautпо идее должно быть до 1580 килобайтов
Прикладная программа — это любая конкретная программа, способствующая решению
какой-либо задачи в пределах данной проблемной области.
Например, там, где на компьютер возложена задача контроля за финансовой деятельностью какой-либо фирмы, прикладной будет программа подготовки платежных ведомостей.
Прикладные программы могут носить и общий характер, например, обеспечивать составление и печатание документов и т.п.
В противоположность этому, операционная система или инструментальное ПО не вносят прямого вклада в удовлетворение конечных потребностей пользователя.
Прикладные программы могут использоваться либо автономно, то есть решать поставленную задачу без помощи других программ, либо в составе программных комплексов или пакетов.
Var
a, b:array[1..10000] of integer;
n, count, i, ianswer, cnt: integer;
Begin
Readln(n);//количество пар
For i:= 1 to n do
begin
Read(a[i]);//читаем первый катет
Readln(b[i]);//читаем второй катет
end;
ianswer:= 1;
count:= 1;
For i:= 2 to n do
begin
if a[i]*b[i] = a[ianswer]*b[ianswer] then inc(count);
if a[i]*b[i] > a[ianswer]*b[ianswer] then
begin
count:= 1;
ianswer:=i;
end;
end;
if count = 1 then begin
Writeln('Треугольник с наибольшей площадью равной ', a[ianswer]*b[ianswer],
'и, имеет размеры катетов ', a[ianswer], ' и ', b[ianswer], '. Номер треуголника: ', ianswer);
halt;
end;
Writeln('Всего ', count, ' Треугольника(-ов) с максимальной площадью равной ', a[ianswer]*b[ianswer]);
cnt:= 1;
For i:= 1 to n do
if a[ianswer]*b[ianswer] = a[i] * b[i] then begin
Writeln(cnt, '-й треугольник имеет катеты ',a[i], ' и ', b[i], '. Номер этого треугольника:', i);
inc(cnt);
end;
end.
нота кодируется минимум тремя битами. значит 180 нот - 540 бит