Даю 30 БАЛЛОВ , срочно , помогите!!!!!!!около школы разбили клумбу в форме Круга радиусом...

Question

Даю 30 БАЛЛОВ , срочно , помогите!!!!!!!около школы разбили клумбу в форме Круга радиусом R м.На 1 м квадратный площади требуется x граммов семян цветов .Сколько граммов семян нужно купить?Площадь круга вычисляется по формуле S=π*R квадрат . В качестве π используйте функцию pi. Значения переменных R, x ввести с клавиатуры помогите , плиз , буду благодарна )

Answer 1

Вот держи.Для меня число π=3.1415926.P.S Можешь потом на своё поставить!

var

R,x,c,f:real;

pi:real;

begin

write('Введите x семян на 1 кв.м:');

readln(x);

write('Введите S:');

readln(R);

pi:=3.1415926;

c:=pi*R;

f:=c*x;

writeln('Площадь клумбы равна:',c);

writeln('Кол-во семян для покупки:',f);

end.