LINE (0,100)-(25,10),0
LINE (25,10)-(50,100),0
LINE (50,100)-(0,100),0
Чтобы закрасить, ищещь середину PAINT (25,45), 11 (цвет заливки), 0 (цвет границы (линий))
Человек 1: 2,5 * 71,12 = 177,8 см.
Человек 2: 32,2 / 16 * 71,12 = 143,13 см.
Человек 3: 198 см.
Средний рост равен (177,8 см + 143,13 см + 198 см) / 3 = 172,98 см.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 uses crt; var i,xa,ya,xb,yb,xc,yc: integer; function Dlina(x1,y1,x2,y2: integer):real; var d: real; begin d:= sqrt(sqr(y1-y2)+sqr(x1-x2)); Dlina:=d; end; function Perimetr(a,b,c: real): real; begin Perimetr:=a+b+c; end; procedure Vvod (nt: byte; var ax,ay,bx,by,cx,cy: integer); begin writeln ('Координаты вершины A ',nt,' треугольника'); readln (ax,ay); writeln ('Координаты вершины B ',nt,' треугольника'); readln (bx,by); writeln ('Координаты вершины C ',nt,' треугольника'); readln (cx,cy); end; begin for i:=1 to 3 do begin Vvod (i,xa,ya,xb,yb,xc,yc); writeln ('Периметр ',i,' треугольника = ',Perimetr(Dlina(xa,ya,xb,yb),Dlina(xb,yb,xc,yc),Dlina(xc,yc,xa,ya)):0:2); writeln; end; readkey end.
Program z1;
var
a, b: integer;
begin
a:=0;
readln(b);
a:=a+b;
readln(b);
a:=a+b;
readln(b);
a:=a+b;
readln(b);
a:=a+b;
write(a);
<span> end.
или
program z1;
var
a, b: integer;
procedure add;
begin
readln(b);
a:=a+b;
end;
begin
a:=0;
add();
add();
add();
add();
writeln(a);
<span> end.</span></span>