Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  2
Language: PASCAL
Code:
program qwe;

var bc,ac,sinA,sinB:real;

begin

writeln('Дан треугольник ABC. В нем ABC длина стороны BC равна 10см AC=8cм, и синус угла при вершине А равен 5/8.');
read (ac);
writeln('введите число X');
read (bc);
writeln('введите число Y');
read(sinA);
writeln('введите число Z');
sinB:=(ac*sinA)/bc;
writeln (' Синус угла при вершине B равен',sinB);
End.
Comments: