Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
см файл
за январь нет оплаты так как нет предыдущих показаний
excel таблицы не прикрепляются
var s,r: real;
begin
read(r);
s: =pi*sqr(r);
writeln(s: 0: 4);
end.
1 кбайт
1000 байт
1024 бит
1 байт
1 бит
varn,i: integer; x0,y0,x1,y1,x2,y2,s: real; begin readln(n); s: =0; readln(x0,y0); x1: =x0; y1: =y0; for i: =2 to n do begin readln(x2,y2); s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); x1: =x2; y1: =y2; end; x2: =x0; y2: =y0; s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); writeln(s: 10: 2); end.
Популярные вопросы