Задать вопрос Регистрация
Помочь другим

  • Нужно составить программу на паскале авс вот по этой задаче Запросить сторону равностороннего треугольника а)периметр б)площадь в)радиус описанной окружности

Ответы 1

  • Это б)

    uses crt;

    var S,b,h:real;

    begin

    writeln('Введите b,h':);

    readln(b,h);

    S:=1/2*b*h;

    writeln('S=',S);

    readln;

    end.

     

    а)

    uses crt;

    var a,b,c,P:integer;

    begin

    writeln('Введите a,b,c':);

    readln(a,b,c);

    P:=a+b+c;

    writeln('P=',P);

    readln;

    end.

     

    в)

    uses crt;

    var a,b,c,S,R1,R:real;

    begin

    writeln('Введите a,b,c,S':);

    readln(a,b,c,S);

    R1:=a*b*c;

    R:=R1/4*s;

    writeln('R-',R);

    readln;

    end.

     

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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