Составить программу нахождения по формуле герона
Составить программу нахождения по формуле герона
Гость
Ответ(ы) на вопрос:
Гостьprogram abc;
uses crt;
var a,b,c,P,S,P2:real;
begin
writeln('Введите первую сторону: ');
readln(a);
writeln('Введите вторую сторону: ');
readln(b);
writeln('Введите третью сторону: ');
readln(c);
if (a+b