составить программу вычисления площади круга и длину окружности величину радиуса вводить с клавиутуры ,выход из программы при нулевом радиусе

2

Ответы и объяснения

2013-06-06T13:06:25+04:00

program dd;
uses crt;
var S,c,r,pi:real;
begin
Writeln('Величина радиуса ');
read(r);
pi:=3.14;
if r>0 then
begin
S:=Pi*r*r;
c:=2*Pi*r;
Write ('площадь =',S:6:2,' Длина окружности =',c:6:2) end
else
end.

2013-06-06T13:26:11+04:00

Program Z1;

var s,pi,l,r:real;

begin

pi:=3.14;

writeln('Введите радиус');

readln(r);

if r=o then writeln('программа завершила работу') else

s:=pi*sqr(r);

l:=2*pi*r;

writeln('Плащадь равна = ',s,'Длина окр равна', l);

readln

end.