Информатика | 5 - 9 классы
Написать в программе паскаль.
Написать программу в Паскале?
Написать программу в Паскале.
Помогите написать программу в паскале?
Помогите написать программу в паскале.
Написать программу в Паскаль, помогите пожалуйста?
Написать программу в Паскаль, помогите пожалуйста.
Помогите написать программу в турбо паскале?
Помогите написать программу в турбо паскале.
Написать в программе паскаль?
Написать в программе паскаль.
Помогите написать программы в Паскале?
Помогите написать программы в Паскале.
Помогите написать программа на Паскале?
Помогите написать программа на Паскале.
60 баллов?
60 баллов!
Написать программу в Паскаль.
Помогите пожалуйста написать программу в паскале?
Помогите пожалуйста написать программу в паскале.
Помогите написать программу в Паскале, пожалуйстаНаписать программу : Ввести двухзначное число?
Помогите написать программу в Паскале, пожалуйста
Написать программу : Ввести двухзначное число.
На этой странице сайта размещен вопрос Написать в программе паскаль? из категории Информатика с правильным ответом на него. Уровень сложности вопроса соответствует знаниям учеников 5 - 9 классов. Здесь же находятся ответы по заданному поиску, которые вы найдете с помощью автоматической системы. Одновременно с ответом на ваш вопрос показаны другие, похожие варианты по заданной теме. На этой странице можно обсудить все варианты ответов с другими пользователями сайта и получить от них наиболее полную подсказку.
Var a, b, c, eq : integer ;
begin readln(a, b, c) ; eq : = 0 ; if(a> ; = b + c) then eq : = eq - 100 else if(a = b) then inc(eq) ; if(b> ; = a + c) then eq : = eq - 100 else if(b = c) then inc(eq) ; if(c> ; = a + b) then eq : = eq - 100 else if(a = c) then inc(eq) ; case eq of 0 : writeln('Разносторонний') ; 1 : writeln('Равнобедренный') ; 3 : writeln('Равносторонний') ; else writeln('Не существует') ; end
end.