Question

Люди которые шарят за язык Паскаль, пожалуйста, помогите написать програмный код для вычисления площади круга, если известен его радиус... нужно сдать до выходных!​

Answer 1

program CalculateCircleArea;

var

 radius, area: real;

begin

 // Вводим значение радиуса с клавиатуры

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

 readln(radius);

 // Вычисляем площадь круга

 area := pi * radius * radius;

 // Выводим результат на экран

 writeln('Площадь круга с радиусом ', radius, ' равна ', area:0:2);

 

 // Ожидаем ввода, чтобы окно консоли не закрылось сразу после вывода результата

 readln;

end.