Question

Написать программу на Pascal:
1. Вычислить площадь и периметр треугольника по данным трем сторонам. Длины сторон вводятся пользователем.
2. Пользователь вводит два числа. Одно присваивается одной переменной, а второе - другой. Необходимо поменять значения переменных так, чтобы значение первой оказалось во второй, а второй - в первой.
​

Answer 1

Ответ:

1)

var a,b,c,p: integer;  

s,k: real;  

begin  

readln(a);  

readln(b);  

readln(c);  

p:=(a+b+c);  

k:=(a+b+c)/2;  

s:=sqrt(k*(k-a)*(k-b)*(k-c));  

writeln('P =',' ',p,' ', 'S =', ' ',s);  

end.

2)

var a,b,c,j: integer;

begin

 readln(a);

 readln(b);

c:=a;

j:=b;

 begin

   a:=j;

   b:=c;

 end;

 writeln(a,' ',b);

end.