Найти длину окружности и площадь круга заданного радиуса 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
