Advertisement
Guest User

Untitled

a guest
Nov 12th, 2019
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.29 KB | None | 0 0
  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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement