Найти длину окружности и площадь круга заданного радиуса R. в качестве значения Pi использовать 3.14
Найти длину окружности и площадь круга заданного радиуса R. в качестве значения Pi использовать 3.14
Гость
Ответ(ы) на вопрос:
Гостьprogram z13;
var s,l,pi:real;
r:integer;
begin
writeln('r=');
readln(r);
pi:=3.14;
s:=pi*sqr(r);
l:=2*pi*r;
writeln('s=',s,' l=',l);
readln;
end.
Не нашли ответ?
Похожие вопросы