Ответ(ы) на вопрос:
var r:real; begin read(r); r:=3.14*r*r; writeln('S=',r); end.
program krug; var r,otvet:real; begin readln(r); otvet:=3.14*sqr(r); writeln('S=',otvet); end.
Не нашли ответ?
Похожие вопросы