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

Question

Информатика

Аня

24 августа, 06:50

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

+3

Ответы (1)

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

Феофил · Answer 1

Var

r, pi:real;

begin

writeln ('Введите радиус окружности') ;

readln (r) ;

pi:=4*ArcTan (1) ;

writeln ('Площадь окружности равна ', pi*sqr (r))

end.

Тестовые решения:

Введите радиус окружности

1

Площадь окружности равна 3.14159265358979

Введите радиус окружности

3.54

Площадь окружности равна 39.3691824977259