Написать программу в lazarus на языке pascal. 1)известна гипотенуза и прилежащий угол прямоугольного треугольника. найти площадь треугольника. 2)задана последовательность m случайных натуральных чисел. вычислить количество натуральных чисел, кратных трем и не превышающих заданное n. 3)заменить в строке все цифры на пробел. вывести количество замен.

283

447

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

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

6472krenko1

Информатика

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

Попробуй так, но это по сторонам и углу, program triangle; var a,b,s,k: real; procedure triang (a,b,k: real; var s: real); begin s: = 0.5 * a * b * sin(k); end; begin write ('введите стороны a и b через пробел: '); readln (a,b); write ('введите угол: '); readln (k); triang (a,b,k,s); writeln('площадь = ',s: 5: 2); end. это первое .