• Даны 3 стороны треугольника АВС-напечатать какой имеет вид треугольник.
    Проверьте где у меня ошибки:

    var
    a,b,c:integer;
    begin
    write('введите a=');readln(a)
    write('введите b=');readln(b)
    write('введите c=');readln(c)
    if(a=b)and(b=c)then
    writeln('равносторонний')
    else
    if (a=b)or(b=c)or(a=c)then
    writeln('равнобедренный')
    else
    writeln('разносторонний')
    end.

     

Ответы 1

  • После всех "readln(a-c)" забыл ;

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

Еще вопросы

Войти через Google

или

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

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

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