Составить программу для вычисления площади круга, радиус которой нужно ввести с клавиатуры, число р считать равным 3,14

Question

Информатика

Аргентея

29 октября, 06:25

Составить программу для вычисления площади круга, радиус которой нужно ввести с клавиатуры, число р считать равным 3,14

+5

Ответы (1)

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

Сильва · Answer 1

Program CircleS;

Uses Crt;

const pi=3.14;

var S, r:real;

begin

clrscr;

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

readln (r) ;

S:=pi * (r*r) ;

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

readkey;

end.