Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program p10;{10 var}
- var
- A,B,C:integer;
- x,y,s:real;
- begin
- write('VVODIM A'); Readln(A); {ââîäèì èñõîäíûå äàííûå}
- write('VVODIM A'); Readln(b);
- write('VVODIM A'); Readln(c);
- x:=(c-(2*c))/a;
- y:=(c-(2*c))/b;
- s:=abs(0.5*(c/a+c/b));
- writeln('Ploshad= ',s);
- readln();
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement