Uses crt; var p,a,b,c,xa,xb,xc,ya,yb,yc,ab,ac,bc,xab,yab,xbc,ybc,xac,yac:real; s:real; begin writeln('Введите х координаты вершин а и b'); readln(xa,xb); writeln('Введите y координаты вершин а и b'); readln(ya,yb); xab:=xb-xa; yab:=yb-ya; ab:=sqrt(xab*xab+yab*yab); writeln('Введите х координаты вершин а и с'); readln(xa,xc); writeln('Введите y координаты вершин а и c'); readln(ya,yc); xac:=xc-xa; yac:=yc-ya; ac:=sqrt(xac*xac+yac*yac); writeln('Введите х координаты вершин b и с'); readln(xb,xc); writeln('Введите y координаты вершин b и c'); readln(yb,yc); xbc:=xc-xb; yab:=yc-yb; bc:=sqrt(xbc*xbc+ybc*ybc); p:=(ab+bc+ac)/ 2; s:=sqrt(p*(p-ab)*(p-bc)*(p-ac)); writeln(s); end.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №1 begin var a,b,c:integer; Write('Введите три натуральных числа: '); Read(a,b,c); var s:=a+b+c; var k:=Trunc(sqrt(s)); if k*k=s then Writeln('Сумма чисел - квадрат ',k) else Writeln('Сумма чисел не является квадратом целого') end.
Тестовое решение Введите три натуральных числа: 13 4 8 Сумма чисел - квадрат 5
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №2 begin var a,b,c:integer; Write('Введите три натуральных числа: '); Read(a,b,c); var s:=power(a*b*c,1/3); if s=int(s) then Writeln('Среднее геометрическое - целое число') else Writeln('Среднее геометрическое - нецелое число') end.
Тестовое решение Введите три натуральных числа: 16 8 15 Среднее геометрическое - нецелое число
var p,a,b,c,xa,xb,xc,ya,yb,yc,ab,ac,bc,xab,yab,xbc,ybc,xac,yac:real;
s:real;
begin
writeln('Введите х координаты вершин а и b');
readln(xa,xb);
writeln('Введите y координаты вершин а и b');
readln(ya,yb);
xab:=xb-xa;
yab:=yb-ya;
ab:=sqrt(xab*xab+yab*yab);
writeln('Введите х координаты вершин а и с');
readln(xa,xc);
writeln('Введите y координаты вершин а и c');
readln(ya,yc);
xac:=xc-xa;
yac:=yc-ya;
ac:=sqrt(xac*xac+yac*yac);
writeln('Введите х координаты вершин b и с');
readln(xb,xc);
writeln('Введите y координаты вершин b и c');
readln(yb,yc);
xbc:=xc-xb;
yab:=yc-yb;
bc:=sqrt(xbc*xbc+ybc*ybc);
p:=(ab+bc+ac)/ 2;
s:=sqrt(p*(p-ab)*(p-bc)*(p-ac));
writeln(s);
end.