Составить программу для вычисления площади круга, - вопрос №1474261 от wolfwithyou 14.10.2020 20:42

Question

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

wolfwithyou · Answer

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.