Нужно написать программу на вход в pascal программа получает 3 действительных числа- значение градусных мер углов треугольника 1 программа должна проверить что это треугольник ( сложить 3 угла и получить 180) 2 программа должна вывести какой это треугольник( равнобедренный 2 угла равны, равносторонний все 3 угла равны 60, или прямоугольный угол 90) 3 если это прямоугольный треугольник то программа должна запросить 2 стороны треугольника ( 2 катета) и найти его площадь. ( площадь равна половине произведения катетов) написать программу в pascal 99

140

183

Посмотреть ответы 2

Ответы на вопрос:

Кличяня

Информатика

4,6(44 оценок)

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. если надо объединить в одну - пиши.

Kiss1009

Информатика

4,7(31 оценок)

Program program1; var i: integer; sum: real; a: array [1..16] of real; begin randomize; for i: =1 to 16 do begin a[i]: =-2 + random * 5; writeln('a[',i,']=',a[i]: 0: 2); end; sum: =0; for i: =1 to 16 do if a[i]< 0 then sum: =sum+a[i]; writeln('сумма отрицательных чисел равна',sum: 0: 2); end.