Информатика Архивный вопрос

Помогите!!!!!!! пожалуйста!!!!!!!!!!!!!!!!!!

Помогите!!!!!!! пожалуйста!!!!!!!!!!!!!!!!!!
Нет комментариев

Ответы

Гость

Program treygol;
Var a,b,c:Integer;
Begin
   write('Введите стороны треугольника через пробел: ');
   read(a,b,c);
    if (a=b) or (a=c) or (b=c) then writeln('Треугольник равнобедренный !')                                              else writeln('Треугольник не равнобедренный');
end.

Нет комментариев

Похожие вопросы