prudentНаписать программу на Pascal:1. Вычислить площадь и периметр треугольника по данным трем сторонам. Длины сторон вводятся пользователем. 2. Пользователь вводит два числа. Одно присваивается одной переменной, а второе - другой. Необходимо поменять значения переменных так, чтобы значение первой оказалось во второй, а второй - в первой.
ответы: 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.
217
Buckley CreekЧтобы ответить необходимо зарегистрироваться.
