Ответы
Ответ дал:
0
var
r:integer;
l,s:real;
const
pi=3.1415;
begin
write('Введите радиус: ');
readln(r);
l:=2*pi*r;
s:=2*pi*sqr(r);
writeln('Длина окружности = ',l,#10,'Площадь круга = ',s);
readln;
end.
r:integer;
l,s:real;
const
pi=3.1415;
begin
write('Введите радиус: ');
readln(r);
l:=2*pi*r;
s:=2*pi*sqr(r);
writeln('Длина окружности = ',l,#10,'Площадь круга = ',s);
readln;
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад