Программа считывает с клавиатуры «q0», «q1, «p0», «p1» и вычисляет коэффициент эластичности
Категория: Delphi/Pascal
2012-02-12 20:28:59
code: #pascal
program f; var q0,q1,p0,p1:real; p,q:real; begin write('q0: '); readln(q0); write('q1: '); readln(q1); write('p0: '); readln(p0); write('p1: '); readln(p1); p:=(p1+p0)/(p1-p0); q:=(q1-q0)/(q1+q0); writeln('E= ',q*p:0:2); readln; end.
Поделиться: