//PascalABC
var
    a, b, c, P, S : real;
begin
    write('Введите длину стороны A> ');
    readln(A);
    write('Введите длину стороны B> ');
    readln(B);
    write('Введите длину стороны C> ');
    readln(C);
    writeln('Вычисление по формуле Герона');
    P := (A + B + C) / 2;
    S := sqrt(P * (P - A) * (P - B) * (P - C));
    writeln('Площадь треугольника S = ', S);
end.

0 0

1 год назад

Срочно нужно! Даю 45 баллов! Сделайте главно 3-4-2

Anonim64728

2
-картина ученик
-одноклассник ученик
3
129128138146
4
BIT

0 0

3 года назад

Какую информацию можно отправить в электронном письме? А)звуковую Б)графическую В)текстовую Г)тактильную Д)отправить можно все

ElenaK1988 [17]

А
б
в и всё а тактильную нет т к пощупать информацию мы не можем!)))

0 0

3 года назад

Исправить ошибки в задании 2

Екатерина88

нуу как то так...

uses GraphABC;

var x1,x2,y1,y2: integer;

begin

setwindowsize(600, 400);

for var i:=1 to 20 do

begin

SetPenColor(clrandom);

Setbrushcolor(clrandom);

x1:=Random(128);

y1:=random(265);

x2:=random(449);

y2:=Random(365);

line(x1,y1,x2,y2);

end;

end.

0 0

4 года назад