Помощь - Поиск - Пользователи - Календарь
Полная версия: Сумма сторон треуголника
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Hunter_Z
Привет, форумчане, тут по инф задачу задали. Вот код
#Program triangle;
var a,b,c: real;
begin
writeln('Введите значение сторон треугольника');
read(a,b,c);
writeln('Первая сторона = ', a);
writeln('Вторая сторона = ', b);
writeln('Третья сторона = ', c);
writeln('Если к ',a, ' прибавить ', b, ', то это будет равно ', a+b, '.');
if a+b>c then
writeln('А так как сумма двух сторон треугольника всегда больше третий стороны, а ', a+b, ' > ',c, ' значит треугольник существует!')
else writeln ('А так как сумма двух сторон треугольника всегда больше третий стороны, а ', a+b, ' < ',c, ' значит треугольник не существует!')
end.
По правилу сумма 2 сторон треугольника всегда больше последней.
То есть мне надо по мимо a+b>c в
#if a+b>c then
Вписать a+c>b и b+c>a.
Подскажите как это сделать.
Заранее спасибо!
Федосеев Павел
if a+b>c then
замени на
if (a+b>c) and (a+c>b) and (b+c>a) then

Ну и в вывод добавь соответствующие неравенства.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.