Паскаль. Создать программу. Обчислити площу й периметр трикутника, якщо відомі три сторони. Довжини сторін вводяться користувачем. Вычислить площадь и периметр треугольника,если известны три стороны. Длины сторон вводятся пользователем
Uses crt; var n,i,j,l,sum,min:integer; a:array[1..20,1..20]of integer; begin clrscr; write('n='); readln(n); randomize; Writeln('Ishodnaja matrica:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(10); write(a[i,j]:3); end; writeln; end; For l:=1 to 2*n-1 do begin sum:=0; if l<=n then begin for i:=1 to l do for j:=1 to l do if j=l-i+1 then sum:=sum+a[i,j]; if sum<min then min:=sum; end else if l>n then begin for i:=l-n+1 to n do for j:=l-n+1 to n do if j=l-i+1 then sum:=sum+a[i,j]; if sum<min then min:=sum; end; writeln('Summa diagonali ',l,' = ',sum); end; writeln; readln end.
Program p1;
Var a,b,c,s,p,pp: real;
Begin
Writeln('Введите 1 сторону');
readln(a);
Writeln('Введите 2 сторону');
readln(b);
Writeln('Введите 3 сторону');
readln(c);
p:=a+b+c;
pp:=p/2;
s:=sqrt(pp*(pp-a)*(pp-b)*(pp-c));
Writeln('Периметр треугольника = ',p);
Writeln('Площадь треугольника = ',s);
End.