SHARE
TWEET

Untitled

a guest Nov 12th, 2019 67 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program p;
  2. var pi,R1,R2,s1,s2,Scolwa:real;
  3. begin
  4. pi := 3.14;
  5. writeln('введите радиус внутренний');
  6. readln(R2);
  7. writeln('введите радиус внешний');
  8. readln(R1);
  9. s1:=pi*(R1*R1);
  10. s2:=pi*(R2*R2);
  11. Scolwa:=s1-s2;
  12. writeln(Scolwa);
  13. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top