Составить программу для вычисления площади круга, - вопрос №1474661 от София6451 04.04.2020 07:06

Question

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

София6451 · 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.