Question

Допоможіть написати програму мовою Паскаль за цією задачою!

 

 

На одному маленькому квадратному безлюдному острові зі стороною а м. перебували к Робінзонів. Чи не порушені їхні права на житло, якщо на кожного Робінзона повино придбати S м^2 площі острова? Скільком новим Робінзонам ще вистачить місця на острові?

Answer 1

program a;

var k:integer;

a,s:real;

 

begin

readln('a= ',a);

readln('k= ', k);

readln('s= ',s;);

n=int(a*a/s-k);

writeln('Осталось место для ', n, ' робинзонов');

readkey;

end.