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

Question

Информатика

Эсфирка

19 января, 22:59

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

+5

Ответы (1)

Знаете ответ на вопрос?

Армений · Answer 1

var

l, s, r:real;

begin

write ('Radius: ') ;

readln (r) ;

s:=pi*r*r;

l:=2*pi*r;

writeln ('Dlina: ', l:0:4) ;

writeln ('S: ', s:0:4) ;

readln;

end.