Advertisement
Guest User

Untitled

a guest
Sep 5th, 2015
118
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.29 KB | None | 0 0
  1. program p10;{10 var}
  2. var
  3. A,B,C:integer;
  4. x,y,s:real;
  5. begin
  6. write('VVODIM A'); Readln(A);   {ââîäèì èñõîäíûå äàííûå}
  7. write('VVODIM A'); Readln(b);
  8. write('VVODIM A'); Readln(c);
  9. x:=(c-(2*c))/a;
  10. y:=(c-(2*c))/b;
  11. s:=abs(0.5*(c/a+c/b));
  12. writeln('Ploshad= ',s);
  13. readln();
  14. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement