Написать программу для нахождения длины окружности и площади круга (Паскаль)

Question

Информатика

Виташа

20 июня, 19:44

Написать программу для нахождения длины окружности и площади круга (Паскаль)

+1

Ответы (1)

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

Тома · Answer 1

Const p=3.14;

var l, r, s:real;

begin

write (' введи радиус') ;

l:=2*p*r;

writeln (' длина окружности = ', l) ;

s:=p*sqr (r) ;

writeln (' площадь круга = ', s) ;

end.