Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program p;
- var pi,R1,R2,s1,s2,Scolwa:real;
- begin
- pi := 3.14;
- writeln('введите радиус внутренний');
- readln(R2);
- writeln('введите радиус внешний');
- readln(R1);
- s1:=pi*(R1*R1);
- s2:=pi*(R2*R2);
- Scolwa:=s1-s2;
- writeln(Scolwa);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement