Составить программу для вычисления площади круга, радиус которой нужно ввести с клавиатуры, число р считать равным 3,14
Ответы
Ответ дал:
0
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.
Похожие вопросы
7 лет назад
7 лет назад
10 лет назад
10 лет назад