Вахрамей
6 год назад
Нужно написать программу на вход в pascalПрограмма получает 3 действительных числа- значение градусных мер углов треугольника1 программа должна проверить что это треугольник ( сложить 3 угла и получить 180)2 программа должна вывести какой это треугольник( равнобедренный 2 угла равны, равносторонний все 3 угла равны 60, или прямоугольный угол 90)3 если это прямоугольный треугольник то программа должна запросить 2 стороны треугольника ( 2 катета) и найти его площадь.( площадь равна половине произведения катетов)Пожалуйста посчитайтеНАПИСАТЬ ПРОГРАММУ В PASCAL ДАЮ 99 поинтов!!
ОТВЕТЫ
Garrett Justin
Oct 24, 2020
uses crt;
var a,b,c: Integer;
Begin
Write('Введите три угла: ');
Readln(a, b, c);
If (a+b+c)=180 then
Writeln('Это треугольник')
Else Writeln('Это не треугольник');
End.
Вторая:
uses crt;
var a,b,c: Integer;
Begin
Write('Введите три угла: ');
Read(a,b,c);
If (a=b) or (a=c) or (b=c) then
Writeln('Треугольник равнобедренный');
End.
Третья:
uses crt;
var a,b,c: Integer;
d,e,f: Real;
Begin
Write('Введите три угла: ');
Readln(a,b,c);
If (a=90) or (b=90) or (c=90) then
Write('Введите два катета: ');
Readln(d,e);
f:=(d+e)/2;
Writeln('Площадь треугольника: ', f, '.');
End.
Если надо объединить в одну - пиши.
var a,b,c: Integer;
Begin
Write('Введите три угла: ');
Readln(a, b, c);
If (a+b+c)=180 then
Writeln('Это треугольник')
Else Writeln('Это не треугольник');
End.
Вторая:
uses crt;
var a,b,c: Integer;
Begin
Write('Введите три угла: ');
Read(a,b,c);
If (a=b) or (a=c) or (b=c) then
Writeln('Треугольник равнобедренный');
End.
Третья:
uses crt;
var a,b,c: Integer;
d,e,f: Real;
Begin
Write('Введите три угла: ');
Readln(a,b,c);
If (a=90) or (b=90) or (c=90) then
Write('Введите два катета: ');
Readln(d,e);
f:=(d+e)/2;
Writeln('Площадь треугольника: ', f, '.');
End.
Если надо объединить в одну - пиши.
905
Смежные вопросы:
