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