Question

Паскаль:
1. Составить программу вычисляющую площадь кольца, заключенного между радиусами R1 и R2

Answer 1

const Pi=3.14;
var r1,r2:real;
begin
write('Введите внешний радиус кольца: ');
readln(r1);
write('Введите внутренний радиус кольца: ');
readln(r2);
writeln('S=',Pi*(r1*r1-r2*r2):6);
end.
писал по формуле S=пи*(R-r)