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

Question

Информатика

Груняка

15 августа, 11:59

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

+4

Ответы (2)

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

Мишаня · Answer 1

Var

}

r, d:integer; rar

}

begin

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

readln (r) ;

d:=r*2;

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

end.

Гелина · Answer 2

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