Задана окружность радиуса r. составьте программу для нахождения ее длины и площади ограниченного ею круга.

varr,h,s: real; beginread(r); h: =2*pi*r; s: =2*pi*sqr(r); writeln('площадь круга: ', s: 5: 2); writeln('периметр окружности: ', h: 5: 2); end.

Пусть  д – драмкружок,  х – хор,  с – спорт. тогда  в круге д  – 27 ,  в круге х – 32 человека,  в круге с – 22 ученика.те 10 из драмкружка, которые поют в хоре, окажутся в общей части кругов д и x. трое из них ещё и спортсмены, они окажутся в общей части всех трёх кругов. остальные семеро спортом не увлекаются. аналогично, 8 – 3 = 5  спортсменов, не поющих в хоре и  6 – 3 = 3, не посещающих драмкружок.легко видеть, что 5 + 3 + 3 = 11 спортсменов посещают хор или драмкружок,22 – (5 + 3 + 3) = 11 занимаются только спортом;   70 – (11 + 12 + 19 + 7 + 3 + 3 + 5) = 10 – не поют в хоре, не занимаются в драмкружке, не увлекаются спортом. ответ: 10 человек и 11 человек.это

Маловато за такую . var z: array[1..16] of integer; k: array[1..16] of real;   i,p,s: integer; max: real; begin   randomize;   for i: =1 to 16 do z[i]: =random(101);   write('z=');   for i: =1 to 16 do write(z[i],' ');   writeln;   writeln;   p: =0;   s: =0;   for i: =1 to 16 do     if (i mod 2)< > 0 then       begin       s: =s+z[i];       p: =p*z[i];       end;   writeln('p=',p);   writeln('s=',s);   writeln;   for i: =1 to 16 do k[i]: =z[i]* exp(ln(i*z[i])/3);   write('k=');   for i: =1 to 16 do write(k[i]: 0: 0,'   ');   max: =k[1];   for i: =1 to 16 do    if k[i]> max then max: =k[i];   writeln;   writeln('max=',max: 0: 0);   for i: =1 to 16 do    if k[i]=max then k[i]: =0;   write('k=');   for i: =1 to 16 do write(k[i]: 0: 0,'   '); end.