Написать программу для вычисления длины и площади окружности если r = 5,9 ввод с клавиатуры

Question

Дена

4 августа, 02:46

+4

Ответы (1)

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

Домна · Answer 1

Const pi=3,14;

var r, s:integer;

begin

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

read (r) ;

s:=2*pi*r;

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

end.