Написать программу в паскале!

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

Входящие данные; R (радиус)

Выходящие данные: S (площадь), L (длинна окружности).

Question

Фекуса

21 декабря, 04:23

+2

Ответы (1)

Знаете ответ?

Татуля · Answer 1

Procedure Pl (R:integer; var p:real)

begin

p:=3,14*R*R;

end;

procedure length (R:integer; var l:real) ;

begin

l:=3,14*R*2;

end;