Question

Написать программу вычесления значения переменой а по формуле: а=k^2*1/2*sin(m)

Answer 1

Вот. Делай лучшим, если помог:) program pr; var k,m,a:real; begin write('Введите угол: '); readln(m); write('Введите коэффициент k: '); readln(k); a:=sqr(k)/2*sin(m); writeln('a=',a:0:2); end.