def for10(n):
return sum([1/x for x in range(1, n+1])
def for11(n):
return sum([(n+x)**2 for x in range(0, n+1)])
CorelDRAW
(программа для изображения узоров)
Параметр объекта<span> - признак, характеризующий свойства объекта.
Например:размер, цвет, вкус и т.д.</span>
Индекс
============================
Const
nm = 50;{ предельное число товаров }
var
mn: array[1..nm] of string;
mk, ms: array[1..nm] of real;
i, k, n: integer;
min: real;
begin
Write('Введите число продуктов на складе (не более ', nm, '): ');
Readln(n);
min := 1e10;
for i := 1 to n do
begin
Write('Наименование продукта ', i, ': '); Readln(mn[i]);
Write('Количество и стоимость: '); Readln(mk[i], ms[i]);
if min > mk[i] then begin min := mk[i]; k := i end
end;
Writeln('На складе меньше всего продукта ', mn[k], ': ', mk[k],
' кг. стоимостью ', ms[k], ' руб. за 1 кг.')
end.