Паскаль Нужно было написать такую программу: 1) Площадь треугольника корень кв. из p(p-a)(p-b)(p-c), где p=a+b+c/2
Написал программу следующим образом: 

program ABD;

var a,b,c;

integer;

p:real;

writeln ('a,b,c');

readln (bcd);

p:=(a+b+c);

writeln ('p=',p);

readln;

end.

Почему не читает? И еще помогите a=b+c,если a>2, то d=4, иначе d=5. (условный оператор if)

programm ABC;

var b,c;

integer;

  • program ABD;
    var a,b,c:integer;
    p,S:real;
    begin
    writeln ('a,b,c');
    readln (a,b,c);
    p:=(a+b+c)/2;S:= sqrt(p*(p-a)*(p-b)*(p-c));
    writeln ('S=',S:2:1);
    end.
    Это программа к первой задаче




See also: