Однажды жители лилипутии решили выяснить,сколько необходимо слив, чтобы уравновесить яблоко. при этом - id198622920211224 от мороженле 24.12.2021 22:58

Question

Информатика: Однажды жители лилипутии решили выяснить,сколько необходимо слив, чтобы уравновесить яблоко. при этом лилипуты выяснили,что яблоко уравновешивается на чашечных весах персиком и сливой. два ананаса уравновешиваются тремя персиками. яблоко и слива уравновешиваются ананасом. лилипутам решить

мороженле · Accepted Answer

В строке с условиями не хватает скобок. Вот рабочий вариант вашей программы: program _1; var   x, y, x1, y1, x2, y2, x3, y3: real; begin   write( Введите координаты точки(х,у) );read(x, y);   write( Введите координаты первой вершины треугольника(х1,у1) );   read(x1, y1);   write( Введите координаты второй вершины треугольника(х2,у2) );   read(x2, y2);   write( Введите координаты третьей вершины треугольника(х3,у3) );   read(x3, y3);   if (((x - x2) / (x2 - x1) - (y - y2) / (y2 - y1)) = 0) and (((x...

MOGZ ответил