Написать в Паскале

93. Написать алгоритм и программу проверки, является ли данный четырехугольник параллелограммом.

95. Стороны одного прямоугольника равны A и B. Стороны другого равны X и Y. Написать алгоритм и программу проверки прямоугольников на равенство

102. Известна заработная плата сотрудника. Вычислить величину подоходного налога.

107. По заданным значениям одного из сопротивлений цепи и ее полного сопротивления определить, имеет ли место в данной цепи параллельное соединение проводников.

108. Из одной точки к прямой проведены перпендикуляр и наклонная. По длинам отрезков определить, который из них перпендикуляр.

Question

Информатика

Геннадия

22 июля, 08:07

Написать в Паскале

93. Написать алгоритм и программу проверки, является ли данный четырехугольник параллелограммом.

95. Стороны одного прямоугольника равны A и B. Стороны другого равны X и Y. Написать алгоритм и программу проверки прямоугольников на равенство

102. Известна заработная плата сотрудника. Вычислить величину подоходного налога.

107. По заданным значениям одного из сопротивлений цепи и ее полного сопротивления определить, имеет ли место в данной цепи параллельное соединение проводников.

108. Из одной точки к прямой проведены перпендикуляр и наклонная. По длинам отрезков определить, который из них перпендикуляр.

+4

Ответы (1)

Знаете ответ на вопрос?

Евтихий · Answer 1

№95

var x, y, a, b:integer;

begin cls;

a:=4; b:=10; x:=4; y:=10;

if (a=x) and (b=y) then begin write (1) ; end

else

if (b=x) and (a=y) then begin write (1) ; end

else write (0) ;

end.

//0 - не равны; 1 - равны