На одном квадратном острове со стороной а была k робинзонов. Сколько еще робинзонов могут потерпеть крушение рядм с островом, если на одного робинзона нужно S квадратных метров площади острова.
Код программы
Code
program p4;
uses
Crt;
var
s, a: Real;
k: Integer;
begin
ClrScr;
Write('Введите сторону острова: ');
Readln(a);
write('Введите кол-во робинзонов: ');
readln(k);
write('Сколько нужно S на 1 робинзона: ');
readln(s);
if (sqr(a) < k * s ) then
begin
write('Ваши робинзоны не помещаются :(');
end
else
begin
write('Можно поместить еще ', ( sqr(a) - k ) / s, ' робинзонов');
end;
Readkey;
end.
