Даны три произвольных числа a,b,c, значение которых задают длины сторон треугольника. Выведите 0,если нельзя построить треугольник с такими длинами
5-9 класс
|
сторон; 3,если получается равностороний треугольник; 2 равнобедренный; 1 в остальных случаях. Задача в Паскале!!!
program t3;
var a,b,c:real; {допустимо поменять на integer}
begin
writeln ('Vvedit a,b,c');
readln (a,b,c);
if (a<=b+c) and (b<=a+c) and (c<=a+b) then writeln ('0'); else
if (a=c) and (c=b) then writeln (3); else
if (a=c) or (a=b) or (b=c) then writeln ('2'); else
writeln ('1');
readln
end.
Другие вопросы из категории
Задан массив A(n) и число х, написать программу, которая печатает "да", если х совпадает с одним из элементов A, и "нет" в противном случае.
Читайте также
сел - отрицательное, то найти Iа+ b+cI иначе а+b+c +d в корне.
Даны три числа. Если произведение данных чисел - отрицательное, то каждое число возвести в квадрат, иначе найти модуль каждого числа
ПОМОГИТЕ ОЧЕНЬ ПРОШУ
данное число на 13.
четыре целых числа. Вывести на экран минимальное из них.
3.Даны три вещественных числа a, b и с - коэффициенты уравнения ax^2+bx+c. Найдите решение этого уравнения или сообщите, что решения не существует.
нужно на паскале.
Имеются данные о количестве полных лет трех призеров спартакиады. Напишите программу, выбирающую и выводящую возраст самого младшего призера.