Как вывести нужные данные?

@Qwe4334535 · Регистрация: 10.12.2015

Author24 — интернет-сервис помощи студентам

Как вывести после выполнения программы числа a,b,c,d

Pascal

Program pr3;
 
Var
 
a,b,c,d: integer;
 
Procedure Treug(x, y, z:integer);
 
Begin
 
if (x<y+z) and (y<x+z) and (z<x+y)
 
then writeln ('Треугольник со сторонами x,y,z можно построить')
 
else writeln('Треугольник со сторонами x,y,z нельзя построить ')
 
End;
 
Begin {основная программа}
 
Write('Введите a b c d: '); Readln(a,b,c,d); {ввод исходных данных}
 
{вызываем процедуру и проверяем возможность построения треугольника со сторонами a,b,c}
 
Treug(a,b,c);
 
{вызываем процедуру и проверяем возможность построения треугольника со сторонами a,b,d}
 
Treug(a,b,d);
 
{вызываем процедуру и проверяем возможность построения треугольника со сторонами a,c,d}
 
Treug(a,c,d);
 
{вызываем процедуру и проверяем возможность построения треугольника со сторонами b,c,d}
 
Treug(b,c,d);
 
Readln;
 
end.

текст задания
Создать процедуру, определяющую возможность построения треугольника со сторонами x,

y, z. Из чисел a,b,c,d выбрать тройки таких, которые позволяют построить треугольник

(для решения задачи используйте «правило треугольника»: каждая сторона треугольника

меньше суммы двух других сторон).

@a1d4r · 11.04.2016, 19:06

Зачем выводить то, что ты вводишь в начале программы? Наверное ты имел в виду это:
Procedure Treug(x, y, z:integer);

Pascal

Begin
if (x<y+z) and (y<x+z) and (z<x+y)
then writeln ('Треугольник со сторонами ', x, ',', y,',', z, ' можно построить')
else writeln('Треугольник со сторонами ', x, ',', y,',', z, ' нельзя построить ')
End;

	11.04.2016, 19:06