Все формулы прописываем для товара А и далее растягиваем
Искомое значение - буква необходимого нам товара
Таблица - таблица, где прописаны товар и его цена/товар и его количество, выделяем без шапочки таблицы, не забывая поставить знак $, так как диапазон изменяться не будет
Номер столбца/номер строки - у нас второй столбец, вторая строчка, поэтому 2
Интервальный просмотр - Ложь, так как значения не отсортированы по возрастанию, нам нужно точное совпадение
Стоимость находим перемножая цену и количество
Прикладная программа — это любая конкретная программа, способствующая решению
какой-либо задачи в пределах данной проблемной области.
Например, там, где на компьютер возложена задача контроля за финансовой деятельностью какой-либо фирмы, прикладной будет программа подготовки платежных ведомостей.
Прикладные программы могут носить и общий характер, например, обеспечивать составление и печатание документов и т.п.
В противоположность этому, операционная система или инструментальное ПО не вносят прямого вклада в удовлетворение конечных потребностей пользователя.
Прикладные программы могут использоваться либо автономно, то есть решать поставленную задачу без помощи других программ, либо в составе программных комплексов или пакетов.
Var a: integer;
begin
write('Введите трехзначное число: ');
readln(a);
writeln('Результат: ',(a mod 100)*10+(a div 100));
end.
var a,b,c:integer;
begin
writeln('Введите a,b,c');
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
if a+b>b+c then
begin
if a+b>a+c then
write('a+b=',a+b)
else
write('c+a=',c+a);
end
else if b+c>=a+b then
begin
if b+c>c+a then
write('b+c=',b+c)
else
write('c+a=',c+a);
end
else
write('c+b=',c+b);
end.
Возьми слово переписка
подбирай слова такие чтобы в них была буква п е р е п и с к а.
все!
CONST N=5;
var
x:real;
i:integer;
ar:array[1..N] of real;
begin
for i:=1 to N do begin
readln(ar[i]);
x:=x+ar[i];
<em>end;</em>
x:=x/i;
for i:=1 to N do if (ar[i] < x) then write(ar[i],' ');
<span>
end.</span>
