Написать программу. Данн радиус окружности. найти длину окружности и его площадь

Question

Информатика

Анфима

16 июня, 17:14

Написать программу. Данн радиус окружности. найти длину окружности и его площадь

+1

Ответы (2)

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

Нилка · Answer 1

Var

pi, R:real;

begin

pi : = arccos (-1) ;

write ('введите радиус - > ') ; Readln (R) ;

Writeln ('C = ', 2*pi*R) ;

Writeln ('S = ', pi * R * R) ;

end.

Пример:

введите радиус - > 3

C = 18.8495559215388

S = 28.2743338823081

Евфимий · Answer 2

Var

}

r, d:integer; rar

}

begin

writeln ('введи значение радиуса ', r) ;

readln (r) ;

d:=r*2;

writeln ('диаметр ', d) ;

end.