Составить программу для вычисления площади круга, - вопрос №1474486 от оля27102000 14.07.2022 05:26

Question

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

оля27102000 · 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.