Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.