Паскаль нужно было написать такую программу: 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;
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.
Это программа к первой задаче