Question

Найти длину окружности L и площадь круга S заданного радиуса R. (L=2πR; S=πR^2; π=3,14). (Pascal)

Answer 1

const pi=3.14;

var R, k: real;

begin

k:=0;

R:=0;

WriteLn('Введите значение R: ');

Read (R);

k:=R;

R:=2*pi*R;

Writeln ('L= ', R);

k:=pi*Sqr(k);

Writeln ('S= ', k);

end.