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

Question

Информатика

Афросин

17 июня, 16:12

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

+2

Ответы (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.