Написать в паскале 93.написать алгоритм и программу проверки, является ли данный четырехугольник параллелограммом. 95.стороны одного прямоугольника равны a и b. стороны другого равны x и y. написать алгоритм и программу проверки прямоугольников на равенство 102.известна заработная плата сотрудника. вычислить величину подоходного налога. 107. по заданным значениям одного из сопротивлений цепи и ее полного сопротивления определить, имеет ли место в данной цепи параллельное соединение проводников. 108.из одной точки к прямой проведены перпендикуляр и наклонная. по длинам отрезков определить, который из них перпендикуляр.

Aarna Aarna    2   26.06.2019 01:20    11

Ответы
Агент271 Агент271  02.10.2020 11:45
№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- равны
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика