Торговый склад производит уценку хранящихся стройматериалов. Если продукция хранится на складе дольше - id1468350220200327 от Q778 27.03.2020 04:16

Question

Информатика: Торговый склад производит уценку хранящихся стройматериалов. Если продукция хранится на складе дольше 10 месяцев, то она уценивается в 2 раза, а если срок хранения превышает 6 месяцев, но не достигает 10 месяцев, то в 1,5 раза. Получить ведомость уценки товара, которая должна включать следующую информацию: наименование товара, срок хранения, цена товара до уценки, цена товара после уценки

Q778 · Accepted Answer

Function leng(var x,y,x1,y1: real): real; begin   leng:=sqrt(sqr(x-x1)+sqr(y-y1)); end; // основная программа var x1,y1,x2,y2,x3,y3,p: real; begin   write( координаты вершин  x1 y1 x2 y2 x3 y3 через пробел:   );   readln(x1,y1,x2,y2,x3,y3);   if (leng(x2,y2,x1,y1) + leng(x3,y3,x2,y2) = leng(x3,y3,x1,y1)) or      (leng(x2,y2,x1,y1) + leng(x3,y3,x1,y1) = leng(x3,y3,x2,y2)) or      (leng(x3,y3,x2,y2) + leng(x3,y3,x1,y1) = leng(x2,y2,x1,y1)) then   writeln( точки лежат на одной прямой )   else    begin...

MOGZ ответил