Определить,является ли треугольник со сторонами a,b,c равнобедренным.
(На языке ABC Pascal)
Ответы на вопрос
Ответил pacixor
0
var a, b, c: integer;
begin
write (' Введите три стороны: ');
readln (a, b, c);
if (a < b+c) and (b < a+c) and (c < a+b) then
begin
if (a=b) or (a=c) or (b=c) then
writeln('Треугольник равнобедренный')
else
writeln('Треугольник не является равнобедренным');
end
else
writeln ('Треугольник не существует.');
end.
begin
write (' Введите три стороны: ');
readln (a, b, c);
if (a < b+c) and (b < a+c) and (c < a+b) then
begin
if (a=b) or (a=c) or (b=c) then
writeln('Треугольник равнобедренный')
else
writeln('Треугольник не является равнобедренным');
end
else
writeln ('Треугольник не существует.');
end.
Ответил pacixor
0
обрати внимание на OR и AND
Ответил pacixor
0
никакой разницы
Ответил loveiop
0
Извините,кто-то,кажется без глаз.
Ответил loveiop
0
Если вам не составит труда, сможете сделать вторую задачу?
Ответил loveiop
0
https://znanija.com/task/27102184
Новые вопросы
История,
2 года назад
Математика,
2 года назад
Физика,
8 лет назад
Физика,
9 лет назад
Алгебра,
9 лет назад