Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
4 месяца назад
4 месяца назад
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад