rusnura
Var S, p, a,b,c : Real; begin writeln('Введите a: '); readln(a); writeln('Введите b: '); readln(b); writeln('Введите c: '); readln(c); // C не может быть = 0 if c = 0 then writeln('C не может быть равен 0') else begin //Вычисляем P: p := (a+b+c)/c; //Вычисляем корень: S := sqrt( p*(p-a)*(p-b)*(p-c) ); // Результат: writeln('P = ', p); writeln('S = ', S); end; end.
Answers & Comments
S, p, a,b,c : Real;
begin
writeln('Введите a: ');
readln(a);
writeln('Введите b: ');
readln(b);
writeln('Введите c: ');
readln(c);
// C не может быть = 0
if c = 0 then
writeln('C не может быть равен 0')
else
begin
//Вычисляем P:
p := (a+b+c)/c;
//Вычисляем корень:
S := sqrt( p*(p-a)*(p-b)*(p-c) );
// Результат:
writeln('P = ', p);
writeln('S = ', S);
end;
end.