Даны три натуральных числа. Напишите программу, определяющую, существует ли треугольник с такими длинами сторон.Если существует
такой треугольник, то определите его тип (равносторонний, равнобедренный, разносторонний)Пример входных данный Пример выходных данных a b c>> 1 2 1 Не существует a b c>> 2 2 2 Равносторонний a b c>> 20 20 30 Равнобедренный a b c>> 3 4 5 Разносторонний
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Евдинья
program zz1;
var a, b, c:integer; //задаем переменные целого типа
begin
write('введите первую сторону треугольника ');
read(a);
write('введите вторую сторону треугольника ');
read(b);
write('введите третью сторону треугольника ');
read(c);
If (a + b > c) and (c + b > a) and (a + c > b)Then
begin
write( ' существует ');
If (a = b) and (c = b) and (a = c)Then write( ' равносторонний ')
else
If (a <> b) and (c <> b) and (a <> c) Then write( ' разносторонний ')
else
If (a = b) or (c = b) or (a = c) Then write( ' равнобедренный ');
end
else write( ' не существует ');
END.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00