1)Даны два целых числа. Вычислить сумму,разность, произведение и частное их квадратов....

Question

1)Даны два целых числа. Вычислить сумму,разность, произведение и частное их квадратов.
2)дана сторона равностороннего треугольника. Найти его высоты и радиус описанной и вписанной окружности.

Comments

К квадратом относится только частное или все операции?

Answer 1

1)
program task1;
var x,y,xq,yq,sum,pro,cha,raz:integer;
begin
write('Введите числа:');
readln(x,y);
xq:=sqr(x);
yq:=sqr(y);
sum:=xq+yq;
raz:=xq-yq;
pro:=xq*yq;
cha:=xq/yq;
write('Сумма=',sum,';Разность=',raz,';Частное=',cha,';Произведение=',pro);
end.
2)
program task2;
var a,r,rr,h,s:real;
begin
  write('Введите длину стороны треугольника: ');
  readln(a);
  r := sqrt(3) * a / 6;
  rr := 2 * r;
  h := 3 * r;
  s := a * h / 2;
  Writeln('Радиус вписанной окружности ', r::2);
  Writeln('Радиус описанной окружности ', rr::2);
  Writeln('Высота треугольника ', h::2);
  Writeln('Площадь треугольника ', s::2);
end.