Составить программу для вычисления площади круга, - вопрос №1474829 от Dizer1 16.05.2023 17:01

Question

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

Dizer1 · 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.