Есть ответ 👍

Тема: моделирование в ms excel 1. оптимизационные с несколькими неизвестными можно решать в ms excel, используя функцию 2. метод анализа - классификация и ранжирования товаров по уровню прибыли в доле продаж 3. метод abc- анализа - 4. в методе авс-анализа категория включает ограниченное количество товаров, которые приносят наибольшую норму прибыли

156
437
Посмотреть ответы 2

Ответы на вопрос:


Var a,b,i,s: integer; f1,f2: text; beginassign (f1,'input.txt'); assign (f2,'output.txt'); reset (f1); rewrite (f2); readln (f1,a,b); s: =0; for i: =a to b doif (i mod 2=1) then s: =s+i; writeln (f2,s); close (f2); close(f1); end.

var x1,x2,x3,s1,s2,s3: integer;

function sumofnumber(num: integer): integer;

var s: string;

i: integer;

begin

  s: =str(num);

  for i: = 1 to length(s) do

        sumofnumber: = sumofnumber+int(s[i]);

end;

 

begin

  read(x1,x2,x3);

  s1: =sumofnumber(x1);

  s2: =sumofnumber(x2);

  s3: =sumofnumber(x3);

 

  if s1> s2 and s1> s3 then writeln(x1);

  if s2> s1 and s2> s3 then writeln(x2);

  if s3> s2 and s3> s1 then writeln(x3);

end.

 

в правильности написания функции типов не уверенна.

Популярно: Информатика