Пожаловаться
- 06.10.2017 02:30
- Информатика
- remove_red_eye 19449
- thumb_up 26
Ответы и объяснения 1
Var
x1,x2,y1,y2,P,S,a,b:integer;
Begin
Write('Введите X1,Y1,X2,Y2 ');
Readln(x1,y1,x2,y2);
a:=x1-x2;
b:=y1-y2;
if a<0 then a:=-a;
if b<0 then b:=-b;
p:=(a+b)*2;
s:=(x1-x2)*(y1-y2);
if s<0 then s:=-s;
Write('S = ',s,' | P = ',p);
End.
Пожаловаться
- 07.10.2017 02:36
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы