FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Email: Нажмите что бы посмотреть
X:=A1+(A2-A1)*L1;
Y:=B1+(B2-B1)*L2;
IF (Y>=1/3*X*X-2) AND (3*X+2*Y<=20) AND
(-7*X+8*Y<=40)
THEN M:=M+1;
END;
S1: = (A2-A1)*(B2-B1);
S2:=S1*M/N;
WRITELN('Площадь фигуры = ', S2:4:2);
WRITELN('Закончить работу с программой? 1 - нет');
READ(G)
END;
END.
Итогом работы программы будет площадь заданной фигуры.