• Паскаль Нужно было написать такую программу: 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;

Ответы 1

  • program ABD;var a,b,c:integer;p,S:real;beginwriteln ('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.Это программа к первой задаче
    • Автор:

      bella43
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years