Напишите программу для следующей задачи даны стороны предполагаемого треугольника a,b,c. СРОЧНО ДАМ 60 БАЛЛОВ!!
Answers & Comments
estengseant
Var a,b,c:integer; begin writeln('Вычесление периметра треугольника.'); writeln('Введите значение стороны a.'); readln(a); writeln('Хорошо. Вы ввели значение для a: ',a); writeln('Введите значение стороны b.'); readln(b); writeln('Хорошо. Вы ввели значение для b: ',b); writeln('Введите значение стороны c.'); readln(c); writeln('Хорошо. Вы ввели значение для c: ',c); if a<0 then writeln('Данный треугольник не существует') else if b<0 then writeln('Данный треугольник не существует') else if c<0 then writeln('Данный треугольник не существует') else if a+b<c then writeln('Данный треугольник не существует') else if a+c<b then writeln('Данный треугольник не существует') else if b+c<a then writeln('Данный треугольник не существует') else writeln('Периметр треугольника: ',a+b+c); end.
Answers & Comments
begin
writeln('Вычесление периметра треугольника.');
writeln('Введите значение стороны a.');
readln(a);
writeln('Хорошо. Вы ввели значение для a: ',a);
writeln('Введите значение стороны b.');
readln(b);
writeln('Хорошо. Вы ввели значение для b: ',b);
writeln('Введите значение стороны c.');
readln(c);
writeln('Хорошо. Вы ввели значение для c: ',c);
if a<0 then
writeln('Данный треугольник не существует')
else
if b<0 then
writeln('Данный треугольник не существует')
else
if c<0 then
writeln('Данный треугольник не существует')
else
if a+b<c then
writeln('Данный треугольник не существует')
else
if a+c<b then
writeln('Данный треугольник не существует')
else
if b+c<a then
writeln('Данный треугольник не существует')
else
writeln('Периметр треугольника: ',a+b+c);
end.