Предмет: Информатика,
автор: gfyhejnjk23
написать в Паскале
93.Написать алгоритм и программу проверки, является ли данный четырехугольник параллелограммом.
95.Стороны одного прямоугольника равны A и B. Стороны другого равны X и Y. Написать алгоритм и программу проверки прямоугольников на равенство
102.Известна заработная плата сотрудника. Вычислить величину подоходного налога.
107. По заданным значениям одного из сопротивлений цепи и ее полного сопротивления определить, имеет ли место в данной цепи параллельное соединение проводников.
108.Из одной точки к прямой проведены перпендикуляр и наклонная. По длинам отрезков определить, который из них перпендикуляр.
Ответы
Автор ответа:
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- равны
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- равны
Интересные вопросы
Предмет: Английский язык,
автор: Elenavitaliy4604
Предмет: Русский язык,
автор: Marleko
Предмет: Математика,
автор: pushkaryova1986
Предмет: Математика,
автор: qweerty22
Предмет: Литература,
автор: tatawas1gfhh