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

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

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

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

Question

Алексаша

4 августа, 01:32

+4

Ответы (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;