Program prog;
Uses crt;
var m: integer;
label l1;
Begin clrscr;
l1: write('Введите номер месяца = ');
readln(m);
case m of 1,3,5,7,8,10,12: writeln('31');
4,6,9,11: writeln('30');
2: writeln('28/29');
else
begin
writeln('Непривильный номер месяца');
writeln;
goto l1;
end;
end;
readln;
End.
<span><span>(A∨B)(A∨C)</span> заменяем на <span>AA∨AC∨BA∨BC</span>
</span><span>AA∨AC∨BA∨BC
</span><span><span>AA</span> заменяем на A (идемпотентность: <span>AA</span>=A)
</span><span>A∨AC∨BA∨BC
</span><span><span>A∨AC</span> заменяем на A (правило поглощения: <span>A∨AC</span>=A)
</span><span>A∨BA∨BC</span><span><span>A∨BA</span> заменяем на A (правило поглощения: <span>A∨BA</span>=A)
</span><span>A∨B<span>C
Ответ: </span></span>A∨BC<span>
</span>
Формула Герона используется для вычисления площади треугольника. В данном случае нет необходимости (как и нужных данных) для ее использования. Так, чтобы найти полупериметр (обозначен буквой p в формуле), мы уже должны знать длины сторон.
Вывод другой формулы и сама формула для нахождения длины отрезка находится на этом сайте: http://www.studyguide.ru/note.php?id=14
program ryazantsev;
var xa, ya, xb, yb, d: real;
begin
Writeln('Введите координаты первой точки (x, y)');
Readln(xa, ya);
Writeln('Введите координаты второй точки (x, y)');
Readln(xb, yb);
d:=Sqrt(Sqr(xb-xa)+Sqr(yb-ya));
Writeln(d)
end.
Если не ошибаюсь способов 2